SimpleRoundTo

[Popov]

Das sollten klappen. Ob es schön ist, ist eine andere Frage.

Delphi-Quellcode:

function MyRound(Value: Extended): Extended;
begin
  //bei 100 wird auf 2 Stellen gerundet, bei 1000 auf 3, usw.
  Result := Trunc(Value) + (Round(Frac(Value) * 100) / 100);
end;

Macht aus 12,34567 > 12,35

Macht aus 12,34467 > 12,34