Çok basit bi fonksiyon arıyorum...

[destiny24]

Selamun Aleyküm,,

Arkadaşlar arama yaptım bu sitede ama doğru sonuca ulaşamadım sanırım sorgulamada hata yapmış olabilirim.

Sorum ise tarih fonksiyonları ile ilgili.Verilen tarihe ay cinsinden girilen veriyi ekleyemedim.Tarih ve zaman fonksiyonlarına da baktım ama bulamadım.Yada diğer fonksiyonları kullanarak bi algoritma kuramadım.

Mesela bugüne 6 ay eklicek,ve ya 20.05.2010 tarihine 18 ay eklicek gibi..

Yardımlar için şimdiden teşekküler..

[destiny24]

var
ut,skt,yeni:TDateTime;
ay,gun,yil:word;
begin
ut := StrToDate(Edit_Ut.Text);
DecodeDate(ut, Yil, Ay, Gun);
ay:=ay+strtoint(edit_omur.Text);

if (ay>12) then
begin
yil:=yil+(ay div 12);
ay:=ay mod 12;
end;
yeni := EncodeDate(Yil, Ay, Gun);
edit_Skt.Text := DateToStr(yeni);



Bu şekilde bir çözüm buldum şimdilik.Daha kısa ve pratik bir şey varsa onuda öğrenmek isterim.

[SimaWB]

Halihazırda SysUtils.pas içerisinde IncMonth fonksiyonu var.

Kod: Tümünü seç

function IncMonth(Date: TDateTime; Months: Integer) : TDateTime;

[destiny24]

Çok teşekkür ederim arkadaşım bilgi için....