Tarihi otomatik olarak 30-60-90-.....arttırmak

[mpolat]

S.A. Arkadaşlar,
Taksitler adında bir table var. Ben bu table'a girilen tkasit adedi kadar kaydı oluşturabilip atayabiliyorum(1.Taksit,2.taksit....gibi) Fakat bu taksitlerin tarihlerini de 30'ar gün atayla programın kendisinin belirlemesini isterken bu işlevi gördüremiyorum kodum aşağıdaki gibi:

Kod: Tümünü seç

var
i,j,TaksitAdet,TaksitTutar:integer;
begin
TaksitAdet:=StrToInt(edtTaksitAdet.Text);
TaksitTutar:=frmCariIslem.tblCariIslemISLEM_TUTARI.AsInteger div TaksitAdet;
        for i:=1 to TaksitAdet do
        begin
        frmCariIslem.tblTaksitler.Edit;
        frmCariIslem.tblTaksitler.Append;
        frmCariIslem.tblTaksitlerTAKSIT_TUTARI.AsInteger:=TaksitTutar;
        frmCariIslem.tblTaksitlerTAKSIT_TARIHI.AsDateTime:=now+30;
        frmCariIslem.tblTaksitlerTAKSIT_ADI.AsString:=IntToStr(i)+'.Taksit';
        frmCariIslem.tblTaksitler.Post;
        end;
frmCariIslem.dbgTaksitler.Show;
end;
end;

bu kod çalıştığında bütün taksitler için aynı tarihi üretiyor. Örneğin bugün 20.09.2003 bütün taksitlerin tarihi 20.10.2003 oluyor.
Herkese Selamlar...

[freeman35]

Gayet normal sen taksit sayısını 1milyonda desen hep aynı çıkacak çünki

Kod: Tümünü seç

frmCariIslem.tblTaksitlerTAKSIT_TARIHI.AsDateTime:=now+30;

Now + 30, sen hep bu güne 30 ekliyorsun bir değişken tanımla

Kod: Tümünü seç

var Tmp : TDateTime;
begin
  Tmp := Now;
.........
TMP := TMP+30;
frmCariIslem.tblTaksitlerTAKSIT_TARIHI.AsDateTime:= Tmp;
............

Kolay gele
[/b]

[mpolat]

Sevgili freeman35 ilginiz ve yardımlarınız için müteşekkirim.

[Kuri_YJ]

Bu arada Delphi'de AddDay idi galiba yoksa DayAdd miydi bir fonksiyon ile tarihleri istediğin gibi arttırıp azaltabiliyorsun, ayrıca freeman35'in yadığı da doğrudur

Kolay Gelsin

[mpolat]

İlgin için çok teşekkürler Kuri_TLJ