Kalkulationsfehler
14.05.2009 13:32:01
René
Habe ein merkwürdiges Problem
Ich zähle zwei Werte zusammen
Zahl1 mit Kommastelle
Zehl2 ohne Kommastelle
Das Resultat ist ein gerundeter Wert auf 1 Kommastelle
Schaut euch bitte den Code unten an
Bin dankbar für jeden erdenglichen Hinweis.
Gruss und Danke René
strNetto = Application.ActiveDocument.CustomDocumentProperties("NETWR").Value
strZwRes = strNetto
KommaPunktRaus2 ' setze den Wert ins korrekte Zahlenformat
sngNetto = CSng(strZwRes)
sngNettoSum = sngNettoSum + sngNetto
' -------------------------------------------------------------------
strMWST = Application.ActiveDocument.CustomDocumentProperties("MWPR").Value
strZwRes = strMWST
KommaPunktRaus2 ' setze den Wert ins korrekte Zahlenformat
sngMWST = CSng(strZwRes)
sngMWSTSum = sngMWSTSum + sngMWST
strZwRes = CStr(sngTotal)
KommaPunktRaus2 ' setze den Wert ins korrekte Zahlenformat
sngTotal = CSng(strZwRes)
strZwRes = CStr(sngNettoSum)
KommaPunktRaus2 ' setze den Wert ins korrekte Zahlenformat
sngNettoSum = CSng(strZwRes)
If Val(strMWSTSatz) 0 Then
sngTotal = sngMWSTSum + sngNettoSum ----- hier ist der Fehler
Else
sngTotal = sngNettoSum
End If
Fehler
sngMWSTSum = 7979.85
sngNettoSum = 104998
sngTotal = 112977.9
Der Wert sollte sein -- sngTotal = 112977.85