Taksitlendirme

MoSoft · Mesaj gönderen **MoSoft** » 07 Ara 2006 12:24

Forumda çok aradım çok karışık anlatmışlar bayada uzun sürmüş kimi çözülememiş

bundan sonra taksitlendirme yapacakların işine yararsa ne mutlu bana

.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
memo1.Clear;
for i := 1 to strtoint(edit2.text) do
begin
memo1.Lines.add(DateTimeToStr(IncMonth(StrToDateTime(edit1.Text),i)));
end;
end;

Mesaj gönderen **naile** » 07 Ara 2006 01:08

Bu tür yardımcı kod parçalarını makale ve ipucu bölümüne atmanız gerekiyor. Ben oraya aktarıyorum.

MoSoft · Mesaj gönderen **MoSoft** » 08 Ara 2006 01:19

Pardon yanlış yere yazmışım kusura bakmayın. Bu da gelişmiş hali
edit1 = Tarih
edit2 = Bölünecek Taksit Sayısı
edit3 = Fiyatı
edit4 = Peşin ödenen miktar(Alışken verilen miktar)

Kod: Tümünü seç

var
i:integer;
begin
memo1.Clear;
for i := 1 to strtoint(edit2.text) do
begin
memo1.Lines.add((DateTimeToStr(IncMonth(StrToDateTime(edit1.Text),i)))+' '+floattostr((strtoint(edit3.Text)-strtoint(edit4.Text))/strtoint(edit2.Text))    );
end;
end;