Addieren funktioniert, jetzt Prob. mit Runden
14.08.2008 06:03:00
Gerhard
Moin Tino
thx für die Hilfe...
so habe ich es nun eingebaut:
Private Sub TXT_ZEIT3_Change()
TXT_ERG = CDbl(IIf(IsNumeric(TXT_ZEIT1.Value), TXT_ZEIT1.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT2.Value), TXT_ZEIT2.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT3.Value), TXT_ZEIT3.Value, 0)) / 100
End Sub
Private Sub TXT_ZEIT2_Change()
TXT_ERG = CDbl(IIf(IsNumeric(TXT_ZEIT1.Value), TXT_ZEIT1.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT2.Value), TXT_ZEIT2.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT3.Value), TXT_ZEIT3.Value, 0)) / 100
End Sub
Private Sub TXT_ZEIT1_Change()
TXT_ERG = CDbl(IIf(IsNumeric(TXT_ZEIT1.Value), TXT_ZEIT1.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT2.Value), TXT_ZEIT2.Value, 0)) / 100 + _
CDbl(IIf(IsNumeric(TXT_ZEIT3.Value), TXT_ZEIT3.Value, 0)) / 100
End Sub
Ich musste noch die Eingabe der Ganzzahlen (es sind ausschliesslich nur positive Ganzzahlen) durch 100 teilen.
Soweit so gut, funzt alles. Wo ich mir gerade die Zähne ausbeisse ist folgendes:
Wie schaffe ich es das das Ergebniss in Textbox TXT_ERG auf eine (!!!) Kommastelle gerundet und angezeigt wird?
Hat da jemand nen Tipp für mich?
LG