Porcentagem de um valor
Compartilhe :

Porcentagem de um valor

function Gerapercentual(valor:real;Percent:Real):real;
begin
percent := percent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;


Compartilhe :

Posts Similares