Pontos Flutuantes.......REAL

Delphi

03/04/2004

Olá pessoal..... aqui estou eu pedindo ajuda + uma vez.....

tipo...

Eu to desenvolvendo um négocio pra minha mãe mas ta meio complicado, por exemplo.......vc tem que ter um número real qualquer...tipo....100,00.....depois vc tem uma tabela(no papel mesmo)..do governo federal para calculo de juros e .......

bom.......eu tenho que fazer a seguinte conta.... 100 / 21,421111 * 31,432591.....isso mesmo.....

bom....ele faz a conta até ai tudo bem......

mas ele exibe como isso..... 146,7365786556776......tipo....eu tenho que arrendodar isso pra só 2 casas depois da virgula.........tipo.....deixar assim.....

146,74.....enrtenderam....como se faz isso....já tentei com o ROUND....e não dá........

Valeu........ Andre Castro


Andrecastro

Andrecastro

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/04/2004

Colega,

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TCalcular = Class
  Valor: Currency;
    Divisor: Double;
    Multiplicador: Double;
    Resultado: Currency;
    procedure Clear;
    procedure Execute;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
With TCalcular.Create do
  begin
  Clear;
  Valor:= 100;
  Divisor:= 21.421111;
  Multiplicador:= 31.432591;
  Execute;
ShowMessage(FloatToStrF(Resultado, ffNumber, 15, 2)); // 146,74
  Free;
  end;
end;

{ TCalcular
  Valor: Currency;
    Divisor: Double;
    Multiplicador: Double;
    Resultado: Currency;
}

procedure TCalcular.Clear;
begin
Valor := 0;
  Divisor := 0;
  Multiplicador := 0;
  Resultado := 0;
end;

procedure TCalcular.Execute;
begin
if Divisor>0 then
Resultado := (Valor / Divisor)*Multiplicador;
end;

end.



GOSTEI 0
POSTAR