Банковские проценты (Delphi)

[Alar]

Сообщение от SuperVisor

Процедура подсчета с днями:

procedure TForm1.Button4Click(Sender: TObject);
var
  Vklad, Pribil, NeedSum: real;
  Percent,i: byte;
  Days: smallint;
begin
  Vklad:=strtoint(Edit1.Text);
  Percent:=strtoint(Edit2.Text);
  NeedSum:=Vklad*3;
  i:=0;

  while (Vklad+(Vklad*Percent/100))<NeedSum do
  begin
    Vklad:=Vklad+(Vklad*Percent/100);
    inc(i);
  end;

  NeedSum:=NeedSum-Vklad;

  Days:=trunc(NeedSum/(Vklad*Percent/100/365)+1);

  ShowMessage('Для накопления суммы вам понадобится '+inttostr(i)+
    ' лет и '+inttostr(Days)+' дней');
end;

дописал этот код для вариантов с процентами в виде дроби и с капитализацией раз в квартал.

http://www.programmersclub.ru/delphi...-суммы-вклада/