Tanimlama : function DateToStr(Date: TDateTime): string; overload;
function DateToStr(Const DateTime:TDateTime:TDateTime;const FormatSettings;
TFormatsSettings:string;overload;
Parametreyle girilen tarih degiskenini string tipe dönüstürmek için kullanilan bir fonksiyondur. Eger DAteTime tipli bir degisken degeri aktarilirsa hata vermekle beraber, sadece tarih kismiyla ilgili tip dönüsümü gerçeklesecektir.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
tarih:TDateTime;
sonuc:Ansistring;
begin
tarih:=now;
sonuc:=DateToStr(tarih);
ShowMessage(sonuc);//15.05.2004 yazar
end;