Vade Tarihlerindeki Sapma

[Caylaq]

Merhaba,

Konuyu bir örnekle açıklamaya çalışayım.

7 Taksitli bir satışta, Şirket ödeme vadesini aşağıdaki gibi buluyorum ancak, ay 31 çekiyorsa vadede kaymalar oluyor.

Eğer haziran Ayında taksitler başlıyorsa, Vadeler şu şekilde oluşuyor.

15.06.2008 -- 100 YTL
15.07.2008 -- 100 YTL
14.08.2008 -- 100 YTL
13.09.2008 -- 100 YTL
13.10.2008 -- 100 YTL
12.11.2008 -- 100 YTL
12.12.2008 -- 100 YTL


Vadeleri bugün başlattığımızı varsayarsak, bir sonraki ayın o gününü nasıl sabitleyebiliriz ?


Kullandığım Kod Aşağıdadır

 
  for i := 0 to StrToInt(RzNumericEdit3.Text)-1 do
  begin
  a:=SirketOdemePlanGrid.RowCount-1;
  a:=a+1;
          with SirketOdemePlanGrid do
          begin
          SirketOdemePlanGrid.AddRow;
          //SirketOdemePlanGrid.Cell[0, SirketOdemePlanGrid.RowCount - 1].AsInteger  := 0; // Sıra No
          SirketOdemePlanGrid.Cell[0, a].AsInteger := a;                                   // SIRA NO
          SirketOdemePlanGrid.Cell[1, a].AsDateTime := StrToDate(DateToStr(now))+(a*30);   // VADESİ
          SirketOdemePlanGrid.Cell[2, a].AsString := JvEdit5.Text; //                      // TUTARI
          end;
  end;

.

[Caylaq]

Çözümünü Bir arkadaşımız verdi. Cevap Şu şekilde olacakmış

 
Uses DateUtils;


IncMonth(15.02.2008);// sonuç 15.03.2008 olacaktır.
IncMonth(15.06.2008);// sonuç 15.07.2008 olacaktır.
IncMonth(15.07.2008);// sonuç 15.08.2008 olacaktır.

.

[Caylaq]

İstenilen Tam sonucu aşağıdaki şekilde yakaladım.

PHP Kodu:

SirketOdemePlanGrid.Cell[1, a].AsDateTime := IncMonth(StrToDate (DateToStr(now)),a+1 );   // VADESİ 


Aynı konuda forumda takılan olursa bu bilgiden yola çıkabilir





.

[turkerunutmaz]

sağol hocam kendin sormuş ve cevaplamışsın kolay gelsin

[Caylaq]

Ben Teşekkür Ederim





.