Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: SimpleRoundTo

   
    by MrSpock, 29. Dez 2012
  Ich nutze DecimalRoundExt nicht mit dem Standardwert als "control", sondern mit drHalfUp. Damit habe ich den Effekt, den ich möchte. Zumindest in den Testfällen, die ich benutzt habe. Jetzt muss ich noch die Reaktion des Kunden abwarten, ob im operationellen Einsatz auch kein Cent-Fehler mehr auftritt.
• Forum: Sonstige Fragen zu Delphi

  AW: SimpleRoundTo

   
    by MrSpock, 28. Dez 2012
  Volker Z. hat oben gepostet, wie er es nachbilden konnte.
  
  Obwohl ich auch nicht verstehe warum der Effekt bei der Berechnung auftritt, habe ich (höchstwahrscheinlich) jetzt eine Funktion gefunden, die korrekt funktioniert. Es ist die Funktion DecimalRoundExt für Extended Values. Ich habe sie oben verlinkt und kann sie empfehlen, wenn jemand auch dieses nervige 1 Cent-Problem hat.
• Forum: Sonstige Fragen zu Delphi

  AW: SimpleRoundTo

   
    by MrSpock, 26. Dez 2012
  Also das mit dem Double werde ich versuchen! Hast du eine Begründung, warum Extended hier nicht funktioniert? Das hat doch eine bessere Auflösung. :?
  
  Ich glaube ich versuche einmal die Rundungsfunktionen hier http://cc.embarcadero.com/Download.aspx?id=21909
• Forum: Sonstige Fragen zu Delphi

  AW: SimpleRoundTo

   
    by MrSpock, 26. Dez 2012
  So wie Furtbichler habe ich es in der Vergangenheit auch gemacht.
  
  Ich habe das Testprogramm von Bummi auch getestet und da funktioniert es.
  
  Die Daten kommen aber aus einer Firebird DB und sind TFibFloatFields. Aber ich habe alle Multiplikationen durch Int64 Multipilkationen ersetzt.
  
  Etwa so:
  
  
  Function Mult3(e1, e2, e3: Extended): Extended;
• Forum: Sonstige Fragen zu Delphi

  SimpleRoundTo

   
    by MrSpock, 24. Dez 2012
  Ich habe schon die Fragen dazu im Forum gelesen, aber habe immer noch keine gute Antwort gefunden.
  
  Ich benutze SimpleRoundTo, da ich kein kaufmännisches Runden haben möchte.
  
  Habe zwei Extended Werte a = 0.55 und b = 18.5. Das Produkt ist 10.175 müsste also mit SimpleRountTo(a*b, -2) aufgerundet werden auf 10.18.
  
  Im Debugger wird mir der Wert von abgezeigt, der Wert von !!??? Grrml
  ...