Joao,
Vc pode multiplicar por 100 o salario para eliminar os centavos,
acrescentar 8% e dividir por 100 usando MOD e nao a / (barra de
divisao), assim vc tem somente a parte inteira.
Obrigado.
MuriloCunha
On 13/07/2010 09:40, joao_jma wrote:
Preciso atualizar o salário na base de dados
Declare Math no Uses
Var NovoSalario,AntigoSalario,Aumento:Double;
Begin
AntigoSalario:= 1333;
Aumento:= 8;
NovoSalario:= Roundto(AntigoSalario + (AntigoSalario * (Aumento / 100)), 0);
William C. Brazilino
[As partes desta mensagem que não continham texto foram removidas]
Preciso atualizar o salário na base de dados de funcionários, aumentando em 8%
Preciso arredondar os valores sempre acima para não gravar centavos.
Alguma dica ???
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Use a função simpleroudto da unit math
From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On
Behalf Of joao_jma
Sent: terça-feira, 13 de julho de 2010 09:40
To: Undisclosed-Recipient:;
Subject: [delphi-br] Arredondar
Preciso atualizar o salário na base de dados
Para: Undisclosed-Recipient:;
Assunto: [delphi-br] Arredondar
Preciso atualizar o salário na base de dados de funcionários, aumentando em
8%
Preciso arredondar os valores sempre acima para não gravar centavos.
Alguma dica ???
Obrigado
[As partes desta mensagem que não continham texto
[mailto:[EMAIL PROTECTED] Em
nome de Henrique Netzka (Vetor Sistemas)
Enviada em: terça-feira, 21 de novembro de 2006 08:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Arredondar 1,2999 para 1,29
Você tá brincando, né?!
- Original Message -
From: Marcelo Hoepfner (SI
Levando em cocideração as regras matemáticas o correto é trabalhar com o
máximo de casas decimais durante os cálculos, e apenas arredondar o
resultado final.
Pelo menos foi assim que aprendi no ginásio, pois do contrário o resultado
pode ter um uma diferença muito grande.
Em 16/07/06, Welson
--- Alex - Yahoo escreveu:
Olá pessoal, estou com o seguinte problema:
Quando faço :
BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency *
BD.ItemQuantidade.AsCurrency ele faz algo esquisito.
O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100.
Só que
Olá pessoal, estou com o seguinte problema:
Quando faço :
BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency *
BD.ItemQuantidade.AsCurrency ele faz algo esquisito.
O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100.
Só que ele mostra 231,8 quando multiplico.
Como faço para arredondar os centavos de um valor?
exemploo: 87,18
87,19
87,19
--
Grato pelo atenção
Luís
___
Você quer respostas para
Use a função RoundTo()
- Original Message -
From: Luis
To: Delphi-Br
Sent: Thursday, June 29, 2006 3:03 PM
Subject: [delphi-br] Arredondar valor
Como faço para arredondar os centavos de um valor?
exemploo: 87,18
87,19
87,19
11 matches
Mail list logo