Hi, ok, ich habe verstanden woher das Problem kommt. Ich kann die App nicht so einfach auf Integer mit Cent umstellen... deshalb funktioniert mein Workaround erst mal.... bis ich Zeit habe für die Umstellung. Es geht ja dabei "nur" um den Druck, intern rechne ich mit 6 Stellen hinter dem Komma, aber halt nicht mit Int sondern double
Gruß Stefan > Das liegt in der Natur von Fliesskomma-Operationen. Damit hast Du letztlich > nur bewiesen, dass der Rundungsansatz von mir vorhin ein besseres Ergebnis > liefert :-) > > Deine berechnete Zahl ist eben dabei nicht 0.825, sondern etwas mehr (oder > weniger)..., z.B.: 0.8250000000000011 > > Also müsstest Du : > > i3=0.8250000000000011 > MsgBox str(i3)+" "+format(i3,",###.00")// ergibt 0.825 und 0,83 > > nehmen, oder aber wie vorhin schon ausgiebig vorgebetet, oder Du rechnest > mit Integern (was eigentlich ohnehin die schlauere Variante wäre). > a. > > > > On 01.02.10 15:50, "Stefan Sicurella" <sicure...@onlymac.de> wrote: > >> Hi, >> >> so hier der Code, ich habe die Werte, die ich normalerweise aus der Listbox >> nehme fest eingegeben.... >> >> dim i1,i2,i3,br,rabatt as double >> rabatt=45 // Rabatt in % >> i1=16.500 // VK Brutto Betrag >> br=i1/100 >> br=br*rabatt // in diesem Beispiel 45 % Rabatt >> i1=i1-br // Ergibt 9,075 brutto VK >> i2=i1/(1.1) // Gesamtnetto = Gesamtbrutto geteilt durch MwSt. in diesem Fall >> 10% >> i3=i1-i2 >> >> MsgBox str(i3)+" "+format(i3,",###.00")// ergibt 0.825 und 0,83 >> >> i3=0.825 >> >> MsgBox str(i3)+" "+format(i3,",###.00")// ergibt 0.825 und 0,82 >> >> und nu ;-) >> >> >> Gruß >> >> Stefan >> >>> Ohne Code weiss ich's auch nicht >>> >>> a. >>> >>> >>> On 01.02.10 14:52, "Stefan Sicurella" <sicure...@onlymac.de> wrote: >>> >>>> Ok, das ist sehr merkwürdig, aber ich weiß nicht, was ich da falsch machen >>>> könnte >>>> >>>> Gruß >>>> >>>> Stefan >>>> >>>>> >>>>>> aus 0.825 wird 0.82 mit deinem Code unten, >>>>> >>>>> Bei mir nicht: >>>>> MsgBox str(round_kaufman(0.825)) >>>>> >>>>> Ergebnis 0,83 >>>>> >>>>> >>>>> hast du auch 2009 R5.1? >>>>> >>>>> ja >>>>> >>>>> a. >>>>> >>>>> >>>>>> Stefan >>>>>> >>>>>>> Und was geht NICHT? >>>>>>> >>>>>>> Bei mir geht's auch so: >>>>>>> >>>>>>> dim d as Double >>>>>>> const factor=100.0 >>>>>>> d = myFloatValue*factor >>>>>>> return round(d)/factor >>>>>>> >>>>>>> a. >>>>>>> >>>>>>> >>>>>>> >>>>>>> On 01.02.10 14:29, "Stefan Sicurella" <sicure...@onlymac.de> wrote: >>>>>>> >>>>>>>> Hallo, >>>>>>>> >>>>>>>> den Wert errechne ich aus Brutto-Beträgen und der dazugehörigen MwSt. >>>>>>>> Er dürfte nicht relevant sein, ist er aber in RB 2009 R5.1 >>>>>>>> Meine Paniklösung, die auf jeden Fall funktioniert: >>>>>>>> >>>>>>>> Function round_kaufman(myFloatValue as double) As double >>>>>>>> dim d as Double >>>>>>>> dim sk as string >>>>>>>> const factor=100 >>>>>>>> d = myFloatValue*factor >>>>>>>> sk=format(d,",###.0") >>>>>>>> if right(sk,1)="5" then d=d+0.1 >>>>>>>> return round(d)/factor >>>>>>>> >>>>>>>> End Function >>>>>>>> >>>>>>>> Gruß >>>>>>>> >>>>>>>> Stefan >>>>>>>> >>>>>>>>> Am 01.02.10 14:03, schrieb Stefan Sicurella: >>>>>>>>>> Hi, >>>>>>>>>> >>>>>>>>>> 0.825 hatte ich auch, habs nur in der Mail von Hand falsch getippt... >>>>>>>>>> >>>>>>>>>> ja, wenn ich es so mache wie unten beschrieben geht es auch. >>>>>>>>>> Wenn ich allerdings a durch addieren mehrerer Werte auch errechne >>>>>>>>>> geht >>>>>>>>>> es >>>>>>>>>> wieder nicht. >>>>>>>>>> >>>>>>>>>> Nur wenn ich expliziert die Zahl hinschreibe geht es... das ist doch >>>>>>>>>> irre? >>>>>>>>>> ;-) >>>>>>>>>> >>>>>>>>> >>>>>>>>> Die Herkunft des Wertes von "a" dürfte generell nicht relevant sein. >>>>>>>>> Wenn >>>>>>>>> du >>>>>>>>> dir eine Funktion baust welche den gerundeten Wert zurückgibt, so >>>>>>>>> müsste >>>>>>>>> das >>>>>>>>> Ergebnis immer identisch sein. >>>>>>>>> >>>>>>>>> Hast du mal Beispiel-Code woran man sehen kann wie die >>>>>>>>> unterschiedlichen >>>>>>>>> Wrte >>>>>>>>> (z.B. beim Addieren etc.) zustande kommen? >>>>>>>>> >>>>>>>>> -- >>>>>>>>> Michael Kagerbauer >>>>>>>>> http://rbcoder.de >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>> >>>> >>> >>> >>> >> >> > > >
