Tanimlama : function IncMonth(const Date:TDAteTime;NumberofMonths: Integer=1):
TDateTime;
Parametre olarak girilen tarih degisken içerigindeki ayi bir artirarak yeni bir tarih degeri hesaplar. Fonksiyondan geriye tarih içerikli veri dönecegi için yazdirmak için DateToStr fonksiyonundan faydalanilmistir.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
tarih:TDate;
begin
tarih:=date;//15.05.2004
tarih:=IncMonth(tarih);//ayi bir artirir
Form1.Caption:=DateToStr(tarih);//15.06.2004
end;
07-12-07, 18:32
Çevrimiçi 
