|
|
|
DERS ANLATIMI FRAME |
|
INCMONTH
| 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. |
| |
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;
|
|
|
|
|
|