Preise runden

[Keldorn]

und für den 5-steller kannst du ja mal das probieren:

Delphi-Quellcode:

function Runden5(d:double):double;
Var x:double;
  begin
    //zweistelligen Anteil entfernen
    x:=frac(d/10)*10;

    if x<2.5 then d:=d-x
     else if (x>=2.5) and (x<5) then d:=d+(5-x)
      else if (x>=5) and (x<7.5) then d:=d-x+5
       else d:=d+(10-x);

    result:=d;
  end;

Mfg Frank