vb显示时间我要24小时制的

发布网友发布时间：2022-09-04 07:02

共3个回答

热心网友时间：2024-11-19 04:23

1、系统时间只分为上午和下午二种。以12时为界。2、最好把系统时间改为24小时制的，这样不用改代码就可以显示24小时制了3、如果想与现实相一致，就要加入判断，先取时间值，再判断是早上、晚上、中午等。

热心网友时间：2024-11-19 04:23

可以用格式化字符串实现Label2.Caption = Format(Now, "hh:mm:ss") & " 星期" & s(Weekday(Now) - 1)

热心网友时间：2024-11-19 04:24

Dim s As Date
Dim bs As String
s = Now
Select Case Hour(s)
Case Is < 8
bs = "凌晨"
Case Is < 12
bs = "上午"
Case Is < 14
bs = "中午"
Case Is < 17
bs = "下午"
Case Else
bs = "晚上"
End Select
Label1.Caption = Format(s, "YYYY年MM月DD日 hh:mm:ss " & bs & " 星期" & Choose(Weekday(s), "日", "一", "二", "三", "四", "五", "六"))