اظهار تاريخ والوقت -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]

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

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