Talvez alguma coisa desse tipo:
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 := 103.48;
Total_Tmp := ValorTotal;
NumerodeParcelas := 3;
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;
Foi a idéia que me veio a cabeça.. se alguem tiver algum melhor em mente :)
Não lembro se tem função no delphi pra arredondar as casas decimais.. então escrevi a
função emcima!
Espero ter ajudado :)
[]s
Vinicius
----- Original Message -----
From: waldir
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:21 PM
Subject: [delphi-br] Duplicatas
Pessoal, gostaria de uma ajuda se possivel,
Tenho uma venda e gostaria de gerar as duplicatas,
ex: 103,48 em 3 parcelas
seria 1 de 34,50 e 2 de 34,49
como chegaria nesses valores sendo de 103,48 / 3 = 34,493333
Ficaria muito agradecido sendo atendido...
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
