Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Runden

    Delphi
    by alzaimar, 20. Dez 2005
  Runden geht so:
  Function DecimalRound (aValue, aGranularity : Extended) : Extended;
  Begin
  Result := Int (0.5 + aValue/aGranularity(*aGranularity;
  End;
  
  aValue ist der Wert, der gerundet werden soll, und zwar entsprechend der Granularität.
  x := DecimalRound (123.4567,10); // x = 120
  x := DecimalRound (123.4567, 5); // x = 125
  x := DecimalRound (123.4567,0.1); // x = 123.5