Uhrzeit in Textbox
12.04.2005 21:47:47
Xelleron
bin gerade ein wenig am verzweifeln. Ich habe folgendes vor.
Und zwar habe ich 3 TB auf einer UF:
TB1 = Anfangszeit
TB2 = Endzeit
TB3 = Differenz
Jetzt habe ich folgendes geschrieben:
Private Sub CommandButton1_Click()
If TextBox1.Value > "0" Then
TextBox3.Value = TextBox2.Value - TextBox1.Value
Else
MsgBox "Es wurde keine Zeit angegeben!", vbExclamation, "Hinweis"
End If
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then tb = Format(Application.WorksheetFunction.Substitute(tb, ":", ""), "00:00")
Next tb
End Sub
Wenn ich zum Bsp. 0730 und 1530 eingebe, dann wird in TB3 08:00 ausgegeben - völlig ok.
Wenn aber in TB2 ein "gerader" Wert wie "1600" eingeben wird, dann kommt nicht 08:30 sondern 08:70 heraus. WIESO?
Gruß Dennis
Anzeige