Time formats in A form AND in a worksheet

[Corey]

I am using a form to input data into a sheet and am having diffculty trying to get the time format
correct.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox24.Value = Format(TextBox24.Value, "hh:mm AM/PM")
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The user will enter a time in a 24hr format (eg. 0630 or 1530), but i cannot seem to get the textbox
to change the 1530 into 3:30PM. I keep getting 12:00PM instead....

OR is there a form designed similar to the frmCalendar to select a tim in 15min increments from a
clock face or similar ?

Corey....

 

[OssieMac]

Hi Corey,

Try this:-

Dim strTemp as String

strTemp = Left(TextBox24.Value, 2) & ":" & Right(TextBox24.Value, 2)

TextBox24.Value = Format(strTemp, "hh:mm AM/PM")

Regards,

OssieMac

 

[Rick Rothstein \(MVP - VB\)]

Try this:-

Dim strTemp as String

strTemp = Left(TextBox24.Value, 2) & ":" & Right(TextBox24.Value, 2)

TextBox24.Value = Format(strTemp, "hh:mm AM/PM")

You can also do it this way...

TextBox24.Value = Format(Format(TextBox24.Value, "@@@"), "hh:mm AM/PM")

Rick

 

[Corey]

Thanks Rick perfect !!

Try this:-

Dim strTemp as String

strTemp = Left(TextBox24.Value, 2) & ":" & Right(TextBox24.Value, 2)

TextBox24.Value = Format(strTemp, "hh:mm AM/PM")

You can also do it this way...

TextBox24.Value = Format(Format(TextBox24.Value, "@@@"), "hh:mm AM/PM")

Rick