اظهار تاريخ والوقت -delphi-

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

والصلاة والسلام على رسول الله وعلى آله و صحبه أجمعين

اظهار تاريخ والوقت -DELPHI-

اظهار تاريخ والوقت

Label1.Caption := DateTimeToStr(Now);

اظهار الوقت

Label2.Caption := TimeToStr(Time);

اظهار تاريخ

Label3.Caption := DateToStr(Date);




procedure TForm1.Button1Click(Sender: TObject); //si
begin

Label1.Caption := DateTimeToStr(Now); //de
Label2.Caption := TimeToStr(Time); // del
Label3.Caption := DateToStr(Date); // delp

{
Label1.Caption := DateTimeToStr(now); // delph
Label2.Caption := TimeToStr(now); // delphi
Label3.Caption := DateToStr(now); // d
}

end; // 111dz

[طيباوي ابو علي1]

بارك الله فــــــــــــــيك زائرنا الكريم

[zilo]

مشكوووووووووور أخي على الشرح

[طيباوي ابو علي1]

بارك الله فـــــــــــــــــيك

صيام مقبول وذنب مغفور إن شــــــــــــــــــــاء الله لنا ولكم