Bazı Delphi Komutları ' DATE' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 18:27 Çevrimiçi

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.

Code:

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.

Code:

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.

Code:

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;

07-12-07, 18:27 Çevrimiçi	#1
ares Genel Mesajlar: 6.380 Teşekkür etti: 764 Teşekkür edildi: 2.105 RepForum Gücü: 500 Forum Puanı:43217	Bazı Delphi Komutları ' DATE' 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. Code: 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. Code: 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. Code: 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;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder