Eu faria assim:
function PercDiff(value1, value2: Extended): Extended;
begin
if value1> value2 then
Result := RoundTo(((value1 / value2) * 100) - 100, -2)
else
Result := RoundTo(((value2 / value1) * 100) - 100, -2)
end;
Sds.
________________________________
> To: delphi-br@yahoogrupos.com.br
> From: fcl...@unifemm.edu.br
> Date: Wed, 28 Jan 2009 10:43:35 -0200
> Subject: RES: [delphi-br] calcular percentual dif entre 2 valores ajuda
>
> Bom dia Alessandra.
>
>
>
> Um regra bem simples para você calcular é a seguinte:
>
>
>
> Subtraia o maio pelo menor. Depois divida o resultado pelo valor que deseja
>
> comprar.
>
>
>
> Por Exemplo:
>
>
>
> 22-20 = 2
>
>
>
> Se quero saber quantos porcento 22 e maior que 20 (estou comparando com 20)
>
> temos 2/20 = 0,1 ( ou 10%), desse modo se eu acrescentar 10% a 20 tenho 22.
>
>
>
> Agora o inverso, quantos porcento 20 e menor que 22 )estou comparando com
>
> 22) temos 2/22 = 0.090909..., desse modo se eu diminuir 9.090909..% de 22
>
> tenho o valor 20
>
>
>
> Att.:
>
>
>
> _____
>
>
>
> Fernando Leal
>
>
>
>> fcl...@unifemm.edu.br
>
>
>
> Programador de Sistemas
>
>
>
> Coordenadoria de Informática
>
>
>
> Centro Universitário UNIFEMM
>
>
>
> 55(0xx31)2106-2114
>
>
>
> www.unifemm.edu.br
>
>
>
> _____
>
>
>
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
>
> nome de alessandra porto
>
> Enviada em: quarta-feira, 28 de janeiro de 2009 10:33
>
> Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br
>
> Assunto: [delphi-br] calcular percentual dif entre 2 valores ajuda
>
>
>
> Tenho 2 valores
>
>
>
> 20,00 e 22,00 qual a diferença
>
> em percentual entre esses 2 valores
>
>
>
> qual a melhor forma de calcular isso?
>
_________________________________________________________________
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos
com até 6,000 fotos!
http://www.amigosdomessenger.com.br
