Calculando Percentual

Entre uma rotina e outra, as vezes é necessário efetuarmos cálculo de percentual.
Para calcular o percentual (%) de um determinado valor, insira essa função

no projeto:

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;

Para fazer a chamada dessa função, em um botão coloque o código:
-> GeraPercentual(Valor:real;Percent:real);

-> Em Valor, indique o valor correspondente;
-> Em Percent, indique a % correspondente.

Exemplo do valor 300 com % 2 -> GeraPercentual(300;2);
O Resultado será = 6.



Observe no código fonte, como a função é aplicada ao projeto.
Faça o download do arquivo.

Código Fonte
Neste exemplo, utilizei 3 caixas de textos, uma para Valor, outra para %, e a terceira para Resultado. E também utilizei um Botão (TBitbtn) para fazer a chamada da função.
Nome do Botão -> btCalcular;
Nome da Caixa de Texto 1 -> mValor;
Nome da Caixa de Tetxo 2 -> mPercent;
Nome da Caixa de Texto 3 -> mResult.

Declare a Função:
function GeraPercentual(Valor:real;Percent:real):real;
...
implementation
{$R *.dfm}
...

{Código da Função}
function TForm1.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;

{Código do Botão Calcular}
procedure TForm1.btCalcularClick(Sender: TObject);
var Valor, Percent : real;
begin
{ShowMessage(FloatToStr(GeraPercentual(300,2)));}

{Limpando variáveis}
Valor := 0;
Percent:= 0;

{Previnindo possíveis erros}
if mValor.Text = '' then mValor.Text := '0';
if mPercent.Text = '' then mPercent.Text := '0';

{Convertendo dados das Edits Valor e Percent para Real}
Valor := StrToFloat(mValor.Text);
Percent := StrToFloat(mPercent.Text);

{Chama Função GeraPercentual}
mResult.Text := FloatToStr(GeraPercentual(Valor,Percent));
end;

Observação: Para não dá erro de Ponto Decimal, troque o "ponto" pela "vírgula" nas caixas de texto.
No Evento KeyPress de cada Edit, coloque o código:
if Key in [',','.'] then Key := DecimalSeparator;

********************************************************************
Faça o download do arquivo: Calculando Percentual.rar
********************************************************************

"Comece fazendo o que é necessário,
depois o que é possível,
e derrepente você estará fazendo o impossível." S. Francisco de Assis.

[...] Continue Lendo...