Mega Code Archive

 

Categories / Delphi / Examples

 

Formatlı tarih ve saat gösterimi

procedure TForm1.Timer1Timer(Sender: TObject); var zaman:tDateTime; begin edit1.text:=FormatDateTime('d mmmm yyyy dddd hh:nn:ss:zzz am/pm',Date+Time); end;