حساب تاريخ في الدلفي

أمة الله-2 · 2009-05-17, 23:50

السلام عليكم ورحمة الله وبركاته
بارك الله فيكم
لكن ممكن توضح المثال أكثر ( إذا ممكن يواسطة الفورم)
ودمتم في حفظ الله ورعايته.

بورمله · 2009-05-18, 00:48

اقتباس:

المشاركة الأصلية كتبت بواسطة أمة الله-2

السلام عليكم ورحمة الله وبركاته
بارك الله فيكم
لكن ممكن توضح المثال أكثر ( إذا ممكن يواسطة الفورم)
ودمتم في حفظ الله ورعايته.

كود PHP:


			
procedure TForm1.Button1Click(Sender: TObject);

var

Date1  : TdateTime;

 nbjour,d,m,y  : integer;

begin

 try

nbjour := StrToInt(Edit2.Text);

y := StrToInt(Copy(Edit1.Text,7,4));

m := StrToInt(Copy(Edit1.Text,4,2));

d := StrToInt(Copy(Edit1.Text,1,2));

Date1 := EncodeDate(y,m,d);

  Date1 := Date1 + NbJour;

  edit3.Text:=datetostr(date1);



    except



  showmessage('ج');



  end;



end;

تحيتى