ActiveDelphi

[Marcelosoft]

A quem possa me ajudar agradeço desde já !

Vcs podem me ajudar por favor ! Tenho estes codigos abaixo e gostaria de saber se está certo !
Ele pega o valor de um Label1.Caption e joga o valor do imposto em cima de Label1.Caption !

[alexbandeira]

Cara:

Pelo que percebi assim rapidamente os calculos sairam errados, vc não está usando a formula matemática correta.

Ficaria assim, para acrecentar o valor do juros.
-----------------------------------------------------------------
Num1:=StrToFloat(Label14.Caption) + (StrToFloat(Label14.Caption) * (StrToFloat(O_OrcaPerctImp.Text)/100));
-----------------------------------------------------------------

// vc tbm poderia fazer assim

Var
Num1, Num2 : Corrency;
begin
If O_OrcaImposto.Text = '' Then
Begin
ShowMessage('Atenção !!!... Digitar A Discriminação Do Imposto !');
O_OrcaImposto.SetFocus;
End
Else If O_OrcaPerctImp.Text = '0,00' Then
Begin
ShowMessage('Atenção !!!... Digitar A Porcentagem Do Imposto !');
O_OrcaPerctImp.SetFocus;
End
Else
Begin
Num1:=StrToCurr(Label14.Caption) + (StrToCurr(Label14.Caption) * (StrToCurr(O_OrcaPerctImp.Text)/100));

// Valor do Imposto
Label14.Caption:=FormatCurr('###0.00',Num1);
End;
-----------------------------------------------------------------------------------

Espero ter ajudado.
_________________
Conhecemos um grande homem pelas pequenas atitudes.