(Resolvido) Como fazer o calculo das parcelas

[Alessandra (Jundiai)]

Estou precisando de ajuda novamente.

Eu estou fazendo uma tela de venda, onde o usuario vai definir em qtas parcelas ele vai fazer, e eu tenho q dividir o valor total da nota entre as parcelas

Mas, eu tenho que dividir, de modo que, por exemplo, o valor do pedido é 691,00

Tem que aparecer 1 parcela de 230,34 e 2 parcelas de 230,33

Alguém sabe como posso fazer isso ????

Eu uso o delphi 7.

Obrigada pela ajuda

[Pirambu!]

Qual o banco de dados que você esta usando?

Para apenas dividir;

var
parcela:double;
begin

Parcela:= StrToFloat(Valortotal/NumeroParcela);

Label.Caption:= FloatToStrF(Parcela,FFcurrency,10,2);

Editado Março 5, 2010 por Pirambu!

[Jhonas]

Eu estou fazendo uma tela de venda, onde o usuario vai definir em qtas parcelas ele vai fazer, e eu tenho q dividir o valor total da nota entre as parcelas

Mas, eu tenho que dividir, de modo que, por exemplo, o valor do pedido é 691,00

Tem que aparecer 1 parcela de 230,34 e 2 parcelas de 230,33

Alguém sabe como posso fazer isso ????

De modo bem simplista seria isso:

uses math;

procedure TForm1.Button1Click(Sender: TObject);
var val, parc : real;
begin
    val := 691.00;

    parc := val / 3;
    if (parc * 3)= val then
       begin
          edit1.text := formatfloat(',0.00',parc);
          edit2.text := formatfloat(',0.00',parc);
          edit3.text := formatfloat(',0.00',parc);
       end
    else
       begin
          edit1.text := formatfloat(',0.00',trunc(parc) + frac(parc)+0.01);
          edit2.text := formatfloat(',0.00',parc);
          edit3.text := formatfloat(',0.00',parc);
       end;

          //edit1.text := 230,34
          //edit2.text := 230,33
          //edit3.text := 230,33

end;

abraço

[Alessandra (Jundiai)]

Nossa, muito obrigado.

você me ajudou muuuuuito.