Tanimlama : function now:TDateTime;
O güne ait tarih ve saati yazdirabilen fonksiyondur. Fonksiyonlardan geriyetarih_zaman içerikli veri dönecegi için DateTimeToStr tip dönüstürme fonksiyonu kullanilarak yazdirilabilmektedir.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
tarihzaman:integer;
begin
tarihzaman:=now; // Tarih ve zamani beraber tutan degisken
Edit1.Text:=DateTimeToStr(tarihzaman);//15/05/2004 15:05:04
end;