Fórum Calculo de Porcentagens : #257101

03/11/2004

0

Olã Pessoal, alguem pode me tirar essa duvida...

ValorHorasDia60 := Salario / 30 / 8 + 60 porcento
ValorHorasDia60 := Salario / 30 / 8 + 80 porcento

Estou fazendo assim:

ValorHorasDia60 := Salario / 30 / 8 + 80 / 100

mais os valores não batem com o resultado que faco na calculadora.


Obrigada

Renata.


Renata Coimbra

Renata Coimbra

Responder

Posts

03/11/2004

Aroldo Zanela

Colega,

Utilize tipo Currency, bem como, estabeleça a precedência por meio de parenteses, senão, divisões e multiplicações serão efetuadas antes de soma e subtração.
Testando seu exemplo com um TMemo instanciado:

var Valor: Currency;
begin
  memo1.Lines.Clear;
  Valor := 5000 / 30 / 8 + 80 / 100;
  Memo1.Lines.Add(FloatToStrF(Valor,ffNumber,15,2));
  Valor := ((5000 / 30 / 8) + ((5000 / 30 / 8) * 80) / 100);
  Memo1.Lines.Add(FloatToStrF(Valor,ffNumber,15,2));
end;


Resultado:
21,63
37,50



Responder

Gostei + 0

03/11/2004

Renata Coimbra

Obrigada Haroldo, funcionou beleza !


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar