| Tanimlama : |
function DAte:TDateTime; |
|
| PArametre içermeyen bu fonksiyonla aktif tarihi yazdirabilirsiniz.
Döndürdügü deger tarih içerikli olacagi
için yazdirmak için "DateToStr" tip dönüsümü
kullanmaniz gerekecektir. |
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Caption:=DateToStr(Date);
// 15.05.2004
end; |
|
| Aktif tarihe gün ekleme islemlerini yine bu fonksiyonla
yapmamiz mümkün olabilmektedir. Asagida bu husus örneklendirilmistir.
|
procedure TForm1.Button1Click(Sender: TObject);
var
tarih:TDate;
begin
tarih:=date+10//Aktif TArihe 10 gün ekle
form1.Caption:=datetostr(tarih);//25.05.2004
end;
|
|
| Ayni sekilde önceki günlere dönmek içinde
asagidaki kodlamayi kullananilirsiniz. |
procedure TForm1.Button1Click(Sender: TObject);
var
tarih:TDate;
begin
tarih:=date-10//Aktif TArihe 10 gün çikar
form1.Caption:=datetostr(tarih);//05.05.2004
end;
|
|
