| http://www.w3.org/ns/prov#value | - Here is my latest attempt:Private Sub D24_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim myvalue As String Dim myhour As String Dim myminutes As String myvalue = D24.Value Select Case Len(D24) Case 1 myhour = 0 & Mid(myvalue, 1, 1) myminutes = 00 Case 2 myhour = Mid(myvalue, 1, 2) myminutes = 00 Case 3 The above codes are an attempt to force an entry as time (7, 07, 700, 0700=7:00 / 13, 130
|
