Actually, maybe I should fill out that If..Then block...

If IsDate(TextBox1.Value) Then
strMilitaryTime = Format(TextBox1.Value, "hh:mm:ss")
MsgBox "The military time is: " & strMilitaryTime
Else
MsgBox "That is not a correct time value!"
End If

Rick Rothstein (MVP - Excel)




"Rick Rothstein" wrote in message ...

You didn't say where the 3:42:11 PM time came from. I'll take a guess at a
TextBox so I think you would be looking for this...

If IsDate(TextBox1.Value) Then
strMilitaryTime = Format(TextBox1.Value, "hh:mm:ss")
MsgBox "The military time is: " & strMilitaryTime
End If

Rick Rothstein (MVP - Excel)




"Robert Crandal" wrote in message
...

How can I convert the current time into military time?
I'd like to show the results in a message box kind of
like:

MsgBox "The military time is: " & strMilitaryTime

The variable strMilitaryTime is a string variable which
is where I want to store the current military time. Oh
ya, I want the military time format to be: "hh:mm:ss",
so 3:42:11 PM should convert to 15:42:11, etc...

Thank you!

Robert Crandal.