Hello!

I am using the following subroutine to calculate the sum, I can unfortunately do not understand why this sum is sometimes missing a cent !

For example:
Item1 Price:   36.87
item2 Price:   16.76
item3 Price:   23.46
item4 Price:   50.27
item5 Price:    5.60

Total        : 132.95 !


Here my Code:

Subroutine Calculate()
var vTotal as Double
vTotal = @SumListValues(@FormGetValues(sSub, "Betrag"))
Summe =vTotal
End Subroutine


thank you for the help.

Hello Erika!

Unfortunately this error is still not corrected!

Something that helps sometimes with this sort of problem is:

1) Multiply each value by 100 and put each result into an integer variable.
2) Add the variables into an integer variable.
(This can be done as a loop so you only need two variables.)
3) Divide the sum by 100 and put the result into a money or other two-decimal variable.

Of course, this assumes the values will never exceed the maximum value an integer variable can hold.

Amor wrote on Mar 22^nd, 2012 at 10:38am:


That's the problem right there. The money value stored in your subform has a digit in all 4 decimal places that a money value can store. Going forward I would change the programming that populates Betrag to use @Round() to round to 2 decimal places so that the value you are displaying is the whole value. I would also run a Mass Update on the sub-database of

Betgag = @Round(Betrag, 2) 

-Ray