| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
alexrosalin
Novato
Registrado: Sábado, 19 de Julho de 2008
Mensagens: 48
|
 Enviada: Qui Jul 12, 2012 7:42 am Assunto: Arredondamento Decimal |
 |
|
Bom Dia Pessoal,
Estou com um problema em arredondamento de casa decimais.
Estou desenvolvendo um relatório em QuickReport, que realiza a impressão do valor a ser pago para os funcionários de Hora Extra.
Porem eu gostaria que o valor total, que provem de uma select sum(), arredondasse da seguinte forma.
Ex. 1,01 - 1,49 = 1,50
1,51 - 1,99 = 2,00 .... assim por diante
Ou seja sempre arredondar de 50 em 50 centavos.
Teria alguma rotina para estar fazendo este arredondamento??
Editado pela última vez por alexrosalin em Qui Jul 12, 2012 9:25 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
Caduzera
Profissional
Registrado: Terça-Feira, 29 de Julho de 2008
Mensagens: 656
|
| Enviada: Qui Jul 12, 2012 8:04 am Assunto: |
|
|
Amigo, creio que você mesmo tenha que criar uma rotina de arredondamento que atenda as suas necessidades ...
Vamos ver se alguém conhece alguma coisa "pronta" ...
Abs |
|
| Voltar ao Topo |
|
|
alexrosalin
Novato
Registrado: Sábado, 19 de Julho de 2008
Mensagens: 48
|
| Enviada: Qui Jul 12, 2012 8:29 am Assunto: |
|
|
Sim, concerteza vou ter que fazer uma q atenda minhas necessidades.
Mas gostaria de saber/ver algum exemplo, algo que se aproxime da minha necessidade.
Se alguém souber como eu posso estar solucionando, ou algo aproximado eu agradeço desde já! |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9098
Localização: Sinop-MT
|
| Enviada: Qui Jul 12, 2012 9:25 am Assunto: |
|
|
tente assim:
| Código: | function Arredonda(Valor: Currency): Currency;
var Centavos: Integer;
begin
Result := Int(Valor);
Centavos := Trunc(Frac(Valor)*100);
case Centavos of
1..49: Result := Result + 0.5;
51..99: Result := Result + 1;
end;
end; |
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
