[VB] Onbedoelde afronding*

[Verwijderd]

Ok ik heb iets heel vreemds...

Ik wil de volgende berekening maken in de volgende publieke methode:

Visual Basic:

Public Sub calculateBedrag2()
    If Aantal2.TextLength > 0 And StuksPrijs2.TextLength > 0 Then
        Bedrag2.Value = Aantal2.Value * FormatCurrency(StuksPrijs2.Value, 2, vbUseDefault, vbUseDefault, vbUseDefault)
        Bedrag2.Value = FormatCurrency(Bedrag2.Value, 2, vbUseDefault, vbUseDefault, vbUseDefault)
    End If
End Sub

Aantal2, Bedrag2 en StukPrijs2 zijn allemaal velden.
Deze methode wordt aangeroepen in de Change Event van Aantal2.

Dit werkt nu dus alleen als ik een even getal heb. Bij een oneven, ziet hij de komma van StuksPrijs2 niet.
2 * € 2,50 = € 5,00
3 * € 2,50 = € 75,00
4 * € 2,50 = € 10,00

echt HEEL vreemd.

het hele zooitje keer 100 en dat soort dingen werkt dus niet. Wat zie ik hier over het hoofd?

[Sponge]

Ik denk dat je die formatCurrency beter als laatste kunt doen, na alle berekeningen? (Ik ken die hele functie niet btw, snap ook niet precies wat die doet).

Overigens is het misschien ook wel het bekende "," of "." als decimaal scheiding probleem. Probeer eens in "internationale intestellingen" oid ("Regional options"), de . naar , te veranderen of de , naar . ?

[axis]

rule of thumb.. bij je berekeningen gebruik je altijd de originele waarden, en pas bij het presenteren roep je zo'n formatcurrency aan.

Hier voer je tussendoor ook al een format uit.. da's niet netjes.. imho..

[Verwijderd]

OK, ik moet dus eerst de velden ophalen, berekening maken en helemaal achteraf pas formatten.
Moet ik nog speciale velden declareren? Want die StuksPrijs2 heeft natuurlijk ook de Currency formatering. Moet ik deze altijd eerst terugvertalen naar een Decimal? Of een Float?

[gorgi_19]

Verwijderd schreef op 01 October 2003 @ 12:21:
OK, ik moet dus eerst de velden ophalen, berekening maken en helemaal achteraf pas formatten.

Ja.