Probleme mit den Nachkommastellen...
04.01.2009 16:33:44
Guenneisen
ich hoffe, Ihr könnt mir helfen..
es geht um die Nachkommastellen...solz und kist sollen nach der 2ten nk-stelle abgeschlagen werden,
kapst jedoch nach der 2ten nk-stelle aufgerundet werden...klappt auch alles ganz gut...nun aber Folgendes:
wenn ich BMG = 181,66 setze, dann wird wird kapst (bei einem kistsatz = 0) zu 45,415 und kapst wird richtig auf 45,42 gerundet ...alles richtig!...jetzt aber folgendes Kuriosum:
wenn ich BMG = 3.227,22 setze, dann wird wird kapst (bei einem kistsatz = 0) zu 806,805 und kapst wird seltsamerweise auf 806,80 statt 806,81 gerundet ?
wenn ich kapst auf 3 NKstellen runden lasse, wird mir richtigeweise 806,805 angezeigt...
habt Ihr eine Erklärung bzw. Lsg. ?
Danke und Gruss
Gussfuss
With Me
brutto = .txtbrutto
bmg = .txtbmg
If optKiST8 = True Then
kistsatz = 0.08
kapstsatz = 24.51
ElseIf optKiST9 = True Then
kistsatz = 0.09
kapstsatz = 24.45
Else:
kistsatz = 0
kapstsatz = 25#
End If
kapst = VBA.Round(bmg / (4 + kistsatz), 2)
solz = kapst * 5.5 / 100
solz = Int(solz * 100) / 100
kist = kapst * kistsatz
kist = Int(kist * 100) / 100
gutschrift = brutto - kapst - solz - kist
End with
Me.txtkapst = kapst