How to change macro output from 12 hour to 24 hour format?

Shrey24

Hi,

Instead of Date variable, use Variant alone with the Format function as follows:

Sub Test()
  Dim MyDate As Variant
  MyDate = Format(Time, "hh:mm")
  MsgBox MyDate
End Sub

Or without any variables like this:

MsgBox Format(Time, "hh:mm")

If you insist to use Date variable, try this:

Sub Test2()
  Dim MyDate As Date
  MyDate = Time
  MsgBox WorksheetFunction.Text(MyDate, "[hh]:mm:ss")
End Sub

Hope that helps