Einzelnen Beitrag anzeigen

Benutzerbild von agm65
agm65

Registriert seit: 21. Okt 2003
1.194 Beiträge
 
Delphi 2006 Professional
 
#1

runden bis auf 2 stellen hinterm komma, 0 nicht wegschneiden

  Alt 27. Sep 2007, 09:34
ich nochmal schnell.. ..

folgendes:

Delphi-Quellcode:
(code von [url]http://forum.dsdt.info/[/url])

uses Math;

function RundeAufStelle(zahl: double; stellen: integer): double;
var multi: double;
begin
  multi:=IntPower(10, stellen);
  zahl:=round(zahl*multi);
  result:=zahl/multi;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=FloatToStr(RundeAufStelle(1023.23483, 2));
end;
rundet diese zahl bis auf 2 stellen hinterm komma...wenn die zahl jetzt aber nach dem runden so aussieht: 1023.60
wird die 0 abgeschnitten wie kann ich das verhindern ?
euer Peter Porka
  Mit Zitat antworten Zitat