rundet der kaufmännisch?
abgesehen davon macht der mir ja einen string draus.. ich will aber das ergebnis im extended-format behalten. (das mit showmessage war ja nur zum testen)
ich habs jetzt so gemacht:
Delphi-Quellcode:
function ValidatePrice(aVal: Extended): Extended;
var
e: Extended;
begin
e := IntPower(10, 4);
Result := aVal * e;
Result := (Trunc(Result) + Trunc(Frac(Result) * 2)) / e;
end;
sollte auf 4 stellen kaufmännisch runden.
oder hat vielleicht jemand ne elegantere lösung? =)