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
Teşekkürler
Kod: Tümünü seç
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;