Rekensom

[sarges]

Beste kenners,

Willen jullie mij verder helpen met het volgende:
Ik krijg het maar niet voor elkaar om het % bedrag juist te krijgen.
bijvoorbeeld: 19% van 227,59 = 43.24 , via onderstaande code is de uitkomst 43,32.
Elke keer wordt het hoofd getal (in dit geval is dat "227,59") afgerond naar boven of beneden.

Groet,
Serge

Private Sub cmdBerekenen_Click()
intBedrag = (txtBedrag.Value) ' bedrag ophalen
' BTW-percentage
If optKnop1.Value Then
intBTWperc = 6
ElseIf optKnop2.Value Then
intBTWperc = 19
End If
' Berekenen:
inbtw = intBedrag * intBTWperc / 100
txtBTW.Value = "€" & CStr(inbtw)
D = txtBedrag.Value
E = txtBTW.Value
F = D + E
txtTotaal.Value = "€" & CStr(F)
End Sub

 

[OctaFish]

Hoe heb je de variabelen gedefinieerd? En waarom breng je de berekening terug naar tekst? Als je het tekstvak opmaakt als Valuta, heb je ook een Euroteken. Ik zou zeggen: een getal is een getal.

 

[sarges]

Bedankt voor je advies.
Hierdoor weer verder gekomen.
Alleen de € krijg ik er niet bij, ik zie het (nog) niet hoe.

Dim inbtw As Currency
Dim intot As Currency
Dim intBTWperc As Long
Dim intBedrag As Currency

Private Sub cmdBerekenen_Click()
intBedrag = (txtBedrag.Value) ' bedrag ophalen
' BTW-percentage
If optKnop1.Value Then
intBTWperc = 6
ElseIf optKnop2.Value Then
intBTWperc = 19
End If
' Berekenen:
inbtw = intBedrag * intBTWperc / 100
intot = inbtw + intBedrag
' Tekstvenster gegevens
txtBTW = "€ " & Round(inbtw, 2)
txtTotaal = "€ " & Round(intot, 2)
End Sub

Private Sub cmdSluiten_Click()
ActiveDocument.Bookmarks("btw").Range.Text = txtBTW
ActiveDocument.Bookmarks("totaal").Range.Text = txtTotaal
End Sub

 

[HSV]

Probeer het zo eens sarges.

txtTotaal = Format(Round(intot, 2), "€ 0.00")

 

[sarges]

Heren,

Heel erg bedankt voor jullie aanwijzingen.
Alles werkt prima.

Groet,
Serge