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;
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
********************************************************************
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.
depois o que é possível,
e derrepente você estará fazendo o impossível." S. Francisco de Assis.