Afronden van getallen

[zettekakkers]

hoe rond ik bv 85,95641512 naar 2 na de komma?
mijn code voor mijn kortings console is als volgt

Dim dblPrijsPerStuk, dblAantal, dblBedrag, dblBtw, dblTeBetalenMetKorting, dblTeBetalenMetBtw As Double
Dim dblkorting As Double = 1.03

Console.Write("Eenheidsprijs: ")
dblPrijsPerStuk = Double.Parse(Console.ReadLine)

Console.Write("Aantal stuks: ")
dblAantal = Integer.Parse(Console.ReadLine)

Console.Write("BTW-Tarief: ")
dblBtw = Integer.Parse(Console.ReadLine)

dblBedrag = dblPrijsPerStuk * dblAantal
dblTeBetalenMetBtw = (dblBedrag + ((dblBedrag * dblBtw) / 100))
:evil:Math.Round(dblTeBetalenMetBtw, 2)
:evil:Math.Round(dblTeBetalenMetKorting, 2)

If dblBedrag >= 125 Then
dblTeBetalenMetKorting = dblTeBetalenMetBtw / dblkorting
Console.Write("Te betalen bedrag met korting: " & dblTeBetalenMetKorting)
Else
Console.Write("Te betalen bedrag: " & dblTeBetalenMetBtw)
End If

Console.WriteLine("Press any key to close")
Console.ReadKey()
toch rond het niet af?

 

[JoZ1]

Zoiets?

Dim AfgerondGetal As Double = System.Math.Round(85.95641512, 2)

(Welkom op HelpMij trouwens )

 

[zettekakkers]

Zoiets?

Dim AfgerondGetal As Double = System.Math.Round(85.95641512, 2)

(Welkom op HelpMij trouwens )

Ik zou dblTeBetalenMetBtw en dblTeBetalenMetKorting willen afrond op 2 maar lukt niet? :s

Math.Round(dblTeBetalenMetBtw, 2)
Math.Round(dblTeBetalenMetKorting, 2)

 

[JoZ1]

Dat komt omdat je de waarden van dblTeBetalenMetBtw en dblTeBetalenMetKorting niet veranderd. Probeer het zo:

dblTeBetalenMetBtw = System.Math.Round(dblTeBetalenMetBtw, 2)
dblTeBetalenMetKorting = System.Math.Round(dblTeBetalenMetKorting, 2)

 

[zettekakkers]

Dat komt omdat je de waarden van dblTeBetalenMetBtw en dblTeBetalenMetKorting niet veranderd. Probeer het zo:

dblTeBetalenMetBtw = System.Math.Round(dblTeBetalenMetBtw, 2)
dblTeBetalenMetKorting = System.Math.Round(dblTeBetalenMetKorting, 2)

Bedankt het werkt
ik moest ze enkel onder mijn formules zetten :d
thx