[firebase-br] Arredondando um valor

[Marcio Rodrigues Adão]

- Em Delphi

function SemOsCentavos(const AValue: Current): Current;
begin
  Result := Trunc(AValue);
end;

function SomenteCentavos(const AValue: Current): Current;
begin
  Result := Frac(AValue);
end;

2010/6/28 Rubens - Solução Empresarial <rubens em solucaoempresarial.net>

> Bom dia Pessoal
> tenho o valor de 0,37 e 0,25  e como nao uso centavo em guarani ele
> arredonda para 1 e nao consigo fazer a baixa do contas a receber dele, como
> faço para ele dar baixa dessas duas notas - poderia colocar <= 1 mas dai se
> torna um valor lancado no caixa
> gostaria de fazer uma rotina que verificasse o valor e desse baixa
> ex: cliente vem e deve 500.000 em diversas notas  mas na verdade la dentro
> do arquivo como trabalho com casas decimais sai 500.000,62 diz que vai pagar
> o caixa valor e vai dando baixa nota por nota ate chegar os 500.000 - e fica
> essas duas notas mencionadas acima - como faço para ele desconsiderar esses
> centavos
>
>         If (EdValorDisponivel.Value <= 0) then
>            begin
>             // Gravar no caixa o valor que o cliente pagou que é 500.000
>
> Agradeco
> Rubens
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>