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