F�rum Algoritimo para dividir e arredondar parcelas #226098

15/04/2004

Pessoal estou com um problema para desenvolver umalgoritimo que divida parcelas, arredondando os valores em centavos somente na primeira parcela, algo mais ou menos assim:

Tenho a seguinte rotina

Procedure Parcelas(ValordaCompra:Real;NumerodeParcelas:integer;var PrimeiraParcela:Real; var Parcelas:Real);
begin
   //desta forma se obtem o valor das parcelas desprezando os centavos
Parcelas:=Trunc(ValordaCompra/NumerodeParcelas);
   //obtendo o valor da primeira parcela
PrimeiraParcela:=ValordaCompra-(Parcelas*(NumerodeParcelas-1));
end;

Ela funciona legal quando o valor � inteiro mas quando tenho algo como
[b:d139d0a030]140,90 dividido em 4 vezes[/b:d139d0a030]
Ele retorna da 1� parcela o valor de 35,90 ficando assim as parcelas:
[b:d139d0a030]1� 35,90
2� 34,70
3� 34,70
4� 34,70[/b:d139d0a030]
O que eu gostaria que ele fizesse � assim:
[b:d139d0a030]1� 38,00
2� 34,00
3� 34,00
4� 34,00[/b:d139d0a030]
Algu�m poderia me dar uma luz?
Desde j� agrade�o
Fausto

Fausto

Faustoalves

Curtir t�pico

+ 0

Responder

Post mais votado

15/04/2004

Amigo, Tem Muitas MAneiras De Resolver Isto...Mas eu so Quero Chamar a Aten��o Para o Que Voce Esta Propondo:

140,90 dividido em 4 vezes

Neste caso impreterivelmente voce tem que ter Pelo Menos uma parcela com Centavos...Sera Que ao Inves de Escrever 140,90 Voce N�o Quis Se Referir a 140,00 ...Porque a Soma Dos Valores Que Voce Passou Para Nos D� 140,00 E N�o 140,90 :?: :?:

140,90 dividido em 4 vezes

Ele retorna da 1� parcela o valor de 35,90 ficando assim as parcelas: 1� 35,90 2� 34,70 3� 34,70 4� 34,70

[b:5251eb7aa6]35,90+34,70+34,70+34,70 = 140,00 e n�o 140,90[/b:5251eb7aa6]

O que eu gostaria que ele fizesse � assim: 1� 38,00 2� 34,00 3� 34,00 4� 34,00

[b:5251eb7aa6]38,00 + 34,00+ 34,00 + 34,00 = 140 e n�o 140,90[/b:5251eb7aa6]
Resta para n�s( Eu N�o, Que Vou Viajar Neste Momento) Saber Precissamente O Quer Deseja ...[b:5251eb7aa6]Mas Lembre-se, se o Valor Inicial Tiver Centavos, Pelo Menos Uma Das Parcelas Tem Que Englobar Os Centavos[/b:5251eb7aa6]

Marco Salles

Responder

Gostei + 1