Zeiten in Textboxen Rechnen
10.08.2018 14:00:02
Philip
Ich habe eine Userform mit mehreren TextBoxen darauf, in diesen TextBoxen gebe ich Zeiten ein und Rechne diese zusammen.
Das funktioniert soweit auch ausgenommen wenn ich 24:00 eingebe.
Kann mir da jemand sage wieso das es so nicht geht?
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim a As Long
Dim b As Long
If IsDate(TextBox17) And IsDate(TextBox16) Then
a = Format((CDate(TextBox16) - CDate(TextBox17)) * 24, "0.00")
End If
If IsDate(TextBox15) And IsDate(TextBox14) Then
b = Format((CDate(TextBox14) - CDate(TextBox15)) * 24, "0.00")
End If
TextBox19.Value = (a + b) * 1.25
End Sub
Anzeige