Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Runden mit RoundTo geht irgendwie nicht^^

   
    by edosoft, 27. Apr 2008
  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:
  function ValidatePrice(aVal: Extended): Extended;
  var
  e: Extended;
  begin
  e := IntPower(10, 4);
  Result := aVal * e;
• Forum: Programmieren allgemein

  Re: Runden mit RoundTo geht irgendwie nicht^^

   
    by edosoft, 27. Apr 2008
  hab mich inzwischen etwas schlauer gemacht... ich will kaufmännisch runden, d.h. 1,5 soll auf 2 gerundet werden, 2,5 auf 3 usw.
• Forum: Programmieren allgemein

  Runden mit RoundTo geht irgendwie nicht^^

   
    by edosoft, 27. Apr 2008
  Hallo,
  
  ich will extended-werte auf 4 dezimalstellen genau runden. dazu verwende ich bisher die funktion "RoundTo". aber irgendie funktioniert das nicht...
  
  ShowMessage(FloatToStr(RoundTo(1.23545, -4))); //1,2354
  ShowMessage(FloatToStr(RoundTo(1.23555, -4))); //1,2355
  ShowMessage(FloatToStr(RoundTo(1.23556, -4))); //1,2356
  
  spinn' ich jetzt oder rundet mir die RoundTo-Funktion nicht...