Individuelles Auf und Abrunden der ersten Nachkommastelle

[mkinzler]

Delphi-Quellcode:

function MyRound( v: Double): Double;
begin
  if Frac( v) < 0.2 then 
    result = Trunc(v)
  else if Frac( v) < 0.7 then
    result := Trunc(v) + 0.5 
  else 
    result := trunc( v) + 1;
end;