Taksit

[dost]

Merhaba;

Taksit Tutarı küsüratlarını yuvarlayarak, küsüratları son aya nasıl bırakabilirim.

Kod: Tümünü seç

var
  PESIN_TUTAR, PESINAT, TAKSIT_TUTARI : Real;
  VADE, i : Integer;

begin
  PESIN_TUTAR := StrToFloat(DBEdit4.Text);
  PESINAT := StrToFloat(DBEdit5.Text);
  VADE := StrToInt(DBEdit6.Text);

  TAKSIT_TUTARI := (PESIN_TUTAR - PESINAT)/VADE;

  for i:=1 to VADE do
    begin
      DM.ADOQuery2.Insert;
      DM.ADOQuery2.FieldByName('HESAP_NO').AsInteger := StrToInt(DBEdit2.Text);
      DM.ADOQuery2.FieldByName('ODEME_TARIHI').AsDateTime := IncMonth(Date, i);
      DM.ADOQuery2.FieldByName('TAKSIT_TUTARI').AsFloat := TAKSIT_TUTARI;
      DM.ADOQuery2.Post;
    end;
end;

Yardımcı olabilirmisiniz?

Teşekkürler.

[husonet]

Merhaba

Taksit küsüratları bir tabana göre yuvarlama yapman lazım. Mesala 15750000.Tl olsun bunun Binli kısmını çıkartman için bir algoritma oluştur. İlk önce haneleri hesapla birler onlar, yüzler gibi milyonlara gelince elindeki değer sıfırdan büyükse son taksit'e ekle.

Unutma kuracağın algortima çok önemli.

İyi Geceler.

[mussimsek]

RoundTo ile büyük yuvarlamalar yapabilirsin. Mesela 100 binler hanesine yuvarlayabilirsin. Bu şekilde yuvarlayarak farkları bulup, bir değişkende topla ve sonuncuya ekle.

Kolay gelsin.

[freeman35]

Kod: Tümünü seç

TAKSIT_TUTARI := (PESIN_TUTAR - PESINAT) DIV VADE;// Tam sayı olarak böler
KUSURAT := PESIN_TUTAR - (TAKSIT_TUTARI * VADE);
SON_TAKSIT := TAKSIT_TUTARI + KUSURAT;

Kolay gele

[TRSoft]

merhaba
ben integer sayıları yuvarlamak için aşağıdaki functionı kullanıyorum.

Kod: Tümünü seç

function Yuvarla(deger: extended;Olcu:Integer): extended;
var
  yeni : integer;
begin
  if deger <= 2147483647 then
  begin
    yeni := round(deger);
    result := ((yeni div Olcu) * Olcu) + (byte((yeni MOD Olcu)>= (olcu/2)) * olcu);
  end;
end;

eğer hatalı bir işlem yapıyorsam üstatlar düzeltirse memnun olurum..

[dost]

Merhaba,

İlginize teşekkür ederim.

Kod: Tümünü seç

var
  PESIN_TUTAR, PESINAT, TAKSIT_TUTARI, KUSURAT: Real;
  VADE, i: Integer;

begin
  PESIN_TUTAR := StrToFloat(DBEdit4.Text);
  PESINAT := StrToFloat(DBEdit5.Text);
  VADE := StrToInt(DBEdit6.Text);

  TAKSIT_TUTARI := RoundTo((PESIN_TUTAR - PESINAT)/VADE,5);

  KUSURAT := PESIN_TUTAR - (PESINAT + (TAKSIT_TUTARI * VADE));

  for i:=1 to VADE-1 do
    begin
      DM.ADOQuery2.Insert;
      DM.ADOQuery2.FieldByName('HESAP_NO').AsInteger := StrToInt(DBEdit2.Text);
      DM.ADOQuery2.FieldByName('ODEME_TARIHI').AsDateTime := IncMonth(Date, i);
      DM.ADOQuery2.FieldByName('TAKSIT_TUTARI').AsFloat := TAKSIT_TUTARI;
      DM.ADOQuery2.Post;
    end;
      DM.ADOQuery2.Insert; //SON TAKSIT
      DM.ADOQuery2.FieldByName('HESAP_NO').AsInteger := StrToInt(DBEdit2.Text);
      DM.ADOQuery2.FieldByName('ODEME_TARIHI').AsDateTime := IncMonth(Date, i);
      DM.ADOQuery2.FieldByName('TAKSIT_TUTARI').AsFloat := TAKSIT_TUTARI + KUSURAT;
      DM.ADOQuery2.Post;
end;