求助！怎样让format(time,hh,mm,ss)输出的时间为24小时格式?

Text1 = Format(Now, hh, mm, ss)

输出机器系统时间了
Text1 = Format(Now, hh, mm, ss)
17:32:15

Format(Now, "hh:mm:ss")'24小时制


Format(Now, "hh:mm:ssAMPM")

看看这个你就明白了：
Private Sub Command1_Click()
Dim a, b
a = "09:11:37PM"
Print Format(a, "hh:mm:ss")
b = "21:11:37"
Print Format(b, "hh:mm:ssAMPM")
End Sub

有意思

MyStr = Format(MyTime, "h:m:s")   ' 返回 "17:4:23"
MyStr = Format(MyTime, "hh:mm:ss")   ' 返回 "17:04:23"

MyStr = Format(MyTime, "hh:mm:ss AMPM")   ' 返回 "05:04:23 PM"
MyStr = Format(MyDate, "dddd, mmm d yyyy")   ' 返回 "Wednesday, Jan 27 1993"