Calculo de Porcentagens :

Delphi

03/11/2004

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

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/11/2004

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



GOSTEI 0
Renata Coimbra

Renata Coimbra

03/11/2004

Obrigada Haroldo, funcionou beleza !


GOSTEI 0
POSTAR