Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Kaufmännische Runden geht nicht !

    Delphi
    by Mikkey, 4. Feb 2014
  Was Du willst, ist offenbar nicht "kaufmännisches Runden", sondern immer aufrunden?
  
  Dann sollte Roundup so aussehen:
  
  function RoundUp(X: double): double;
  begin
  Result := Trunc(X);
  if Frac(X) <> 0 then
  Result := Result + 1;
  end;