Function Gerapercentual(valor:real;Percent:Real):real;
// Retorna a porcentagem de um valor
begin
percent := percent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;
Assinar:
Postar comentários (Atom)
Dicas, Fontes e exemplos para você concluir o seu trabalho com sucesso!!!
Nenhum comentário:
Postar um comentário