|
Registriert seit: 19. Sep 2012
Ort: MD (Sachsen-Anhalt)
166 Beiträge
Delphi 2010 Enterprise
|
AW: Kaufmännische Runden geht nicht !
4. Feb 2014, 12:40
Danke mit der Funktion geht es 
Delphi-Quellcode:
function RoundUp(X: double): double;
begin
Result := Trunc(X);
if Frac(X) <> 0 then
Result := Result + 1;
David ApfelsineMandarineAllesGleich 
|