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;
Es ist noch anzumerken, dass das nur für positive Werte funktioniert.
-3,3 wird hier z.B. auf -2,5 gerundet und nicht auf -3,5.
Außerdem sollte man v vllt am Anfang noch auf eine Nachkommastelle runden.
Aber ich denke Delphineuling2015 wird das Prinzip verstanden haben
.
Grüße