fbpx

Porcentagem de um valor

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 esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.