Gruppe
Dialog
Problem
Eine im Industrieformat eingegebene Uhrzeit soll beim Verlassen der TextBox in das Uhrzeitformat gewandelt werden.
StandardModule: Modul1
Sub CallForm()
frmTimeFormat.Show
End Sub
ClassModule: frmTimeFormat
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub txtStart_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtStart.Text = Format(CDbl(txtStart.Text), "h:mm")
End Sub