|
Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Re: Currency kaufmännisch runden
24. Mai 2005, 13:20
Meinste nicht das das auch kürzer geht
Delphi-Quellcode:
Procedure SRound(Stellen: Longint; Var Zahl: Real);
Var
NBuf: Real;
begin
NBuf:=IntPower(10,Stellen);
Zahl:=Zahl*NBuf;
Zahl:=Trunc(Zahl)+Trunc(Frac(Zahl)*2);
Zahl:=Zahl/NBuf;
End;
[edit=Chakotay1308]Styleguide. Ordnung muss sein.  Mfg, Chakotay1308[/edit]
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|