Rekenen in VBA

[raoulduivestein]

Ik heb de volgende code in VBA for Excel
Als ik in TextBox7 de waarde 50 invul
Krijg ik als uitkomst 14.5, echter is het de bedoeling dat dit 14,5 is.
Hoe krijg ik dit voor elkaar?

[CPP]
Private Sub TextBox7_Change()
TextBox8.Value = (TextBox7.Value / 100 * 29)
End Sub
[/CPP]

Groet,

Marvin

 

[edmoor]

Kijk eens in Windows naar de regionale instellingen.
Staat dat wel op NL?
Dus een . als scheidingsteken voor duizendtallen en een , voor decimalen.

 

[raoulduivestein]

Dankjewel edmoor dat was idd de oorzaak

Nu loop ik tegen nog iets aan

[CpP]
totaalverdelen.Value = nettoverdeleno1.Value + nettoverdeleno2.Value + nettoverdeleno3.Valuenettoverdeleno1.Value + nettoverdeleno2.Value + nettoverdeleno3.Value
[/CpP]
de waarde van nettoverdelen1 = 31,95
de waarde van nettoverdelen2 = 43,6
de waarde van nettoverdelen3 = 13
als uitkomst krijg ik 31,9543,613

Maar ik wil dat de uitkomst 88,55 is wat doe ik verkeerd?

 

[edmoor]

Je plakt nu tekst aan elkaar.
Gebruik de VAL functie voor conversie van tekst naar numeriek.
Dus bijvoorbeeld: VAL(nettoverdeleno1.Value) + VAL(nettoverdeleno2.Value)

 

[raoulduivestein]

Nogmaals bedankt edmoor, alleen worden de waarden nu afgerond zonder cijfers achter de komma, het is de bedoeling dat er een bedrag uitkomt.
Zou ik er ook nog een € voor kunnen plaatsen

 

[edmoor]

Hier kun je alle voorbeelden vinden voor het converteren van string getallen naar waarden waarmee kan worden gerekend:
http://www.ozgrid.com/VBA/conversion-functions.htm

 

[raoulduivestein]

Oke dankjewel, bij currency staat de volgende

Sub ConvertToCurrency()
Dim lNum As Double
lNum = 999.989876
MsgBox CCur(lNum)
End Sub

Ik neem aan dat ik deze moet gebruiken, maar begrijp nu niet helemaal wat ik hier mee moet...

 

[edmoor]

Maak van het VAL voorbeeld eens Ccu.
Dus bijvoorbeeld: Ccur(nettoverdeleno1.Value) + Ccur(nettoverdeleno2.Value)

 

[raoulduivestein]

Dankjewel, op deze manier worden er correcte getallen vertoond.
Maar er is wordt geen steeds geen euro teken voor geplaatst.
Heb je misschien nog een andere suggestie ?

 

[edmoor]

Zoiets?
"€ " & Ccur(nettoverdeleno1.Value) + Ccur(nettoverdeleno2.Value)

 

[snb]

Kijk eens in de hulpbestanden van de VBEditor (die staan er niet voor niets) bij het lemma 'format'.

 

[raoulduivestein]

Bedankt voor jullie hulp