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.
1 comentários:
Boa Noite,
Ve se pode me ajudar, preciso criar uma tela em delphi que contenha o valor de compra de um produto em reais e que esse valor seja somado à uma % de acréscimo se for comprado no cartão de credito e me mostre o valor total da compra em um edit e depois some com uma % de venda e me mostre o valor final para venda em outro Edit e ainda me mostre qual o valor do lucro obtido nessa venda ou seja.
Valor de compra + % de acréscimo cartão = Valor total de Compra
Valor Total de Compra + % de venda = Valor final/total para venda
Valor final/total para venda - Valor Total de Compra = Lucro
caso tenha dúvida, segue meu e-mail.
luizpauloaraujo@hotmail.com
caso alguém possa ajudar será de grande valor.
Postar um comentário