[firebase-br] Arredondamento de Parcelas

[Fabio Giro]

procedure TForm1.Button1Click(Sender: TObject);
     function arredondar(Valor: Extended; Casas: Integer): Extended;
     begin
        Result := StrToFloat(Copy(FloatToStr(Valor), 1, Pos(',', 
FloatToStr(Valor)) + Casas));
     end;

  var
     ValorTotal, Total_Tmp, ValorParcela: extended;
     i, NumerodeParcelas: integer;

  begin
     ValorTotal := 842.67;
     Total_Tmp := ValorTotal;
     NumerodeParcelas := 2;

     for i := 1 to NumerodeParcelas do begin
         if i = NumerodeParcelas then begin
            ValorParcela := ValorTotal;
         end
         else begin
            ValorParcela := Arredondar(Total_Tmp / NumerodeParcelas, 2);
         end;
         // aqui vc atribuiu derrepente a um array o valor de cada 
parcela -> Parcela[i] := ValorParcela;
         ValorTotal := ValorTotal - ValorParcela;
         ShowMessage(FloatToStr(ValorParcela));
     end;
  end;

Esper ter ajudado.

----- Original Message ----- 
From: "Antonio Carlos" <a.lima.silva em terra.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, September 25, 2006 2:52 PM
Subject: Re: [firebase-br] Arredondamento de Parcelas


eu faço assim :

842,67  / 2 parcelas = 421,335

Esse resultado sendo arredondado será 421,33 então

multiplico o valor arredondado pelas parcelas  421,33 x 2 = 842,66

e verifico se o valor é menor que o motante original   842,66 < 842,67 ai
faço 842,67 - 842,66 que vai sobrar 0,01 ai pelo esse valor e somo a
primeira parcela ai a primeira parcela será 421,34 e as demais 421,33.

Somente isso.

----- Original Message ----- 
From: "ibestvip" <zottissistemas em ibestvip.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, September 25, 2006 1:54 PM
Subject: Re: [firebase-br] Arredondamento de Parcelas


Entendi, mas se eu multiplicar

 842,67 * 100 = 84267,00
que dividido por 2 é = 421335
e ao dividir 421335/100 = 421,335

Valeu pela ajuda,
mas na prática, alguém tem um código para resolver este problema?

Pois já tentei de tudo que estava no meu conhecimento, e não consegui
resolver.


Zottis.

PS: Tem como pegar somente os dois numeros depois da Vírgula?




______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


__________ Informação do NOD32 IMON 1.1773 (20060925) __________

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa 


		
_______________________________________________________ 
O Yahoo! está de cara nova. Venha conferir! 
http://br.yahoo.com