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

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

在窗体上建立一个Time控件 Time1 其中Interval设置为1，Enabled=True 和一个 Label控件 label1

在双击Time1 编写代码：

label1caption = Format(Now(), "HH:MM:SS")

这样就OK了

1、now()的返回值包括年-月-日 时-分-秒

2、从now()取小时可以使用hour(now)

3、从now()取小时还可以使用format(now,"HH")或format(now,"hh")

4、取系统时间小时还可以用format(time,"HH")或format(time,"hh")或hour(time)

5、示例：

dim H

H=hour(now)

H=format(now,"HH")

MsgBox "网络时间:" & Format(GetText, "yyyymmdd")

它这里获得的是格林威治时间，把它加上八小时就是北京时间了：

MsgBox "现在时间:" & Format(CDate(GetText) + #8:0:0#, "yyyy-mm-dd hh:nn:ss")

' 获得鼠标和键盘动作的Api

Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean

Private Type LASTINPUTINFO

cbSize As Long

dwTime As Long

End Type

' 获得当前时间 单位为毫秒

Private Declare Function GetTickCount Lib "kernel32" () As Long

' 控制系统关机的Api

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_SHUTDOWN = 1

Const EWX_LOGOFF = 0

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Dim mEvent As LASTINPUTINFO

Dim StopTime As Long ' 鼠标和键盘，开始无动作的时间

Dim PrvEvent As Long ' 上一次鼠标或者键盘的状态

Private Sub Timer1_Timer()

mEventcbSize = Len(mEvent)

GetLastInputInfo mEvent

DebugPrint mEventdwTime

' 判断鼠标和键盘的状态，如果状态改变，则重新设置监视时间，保存当前状态

If mEventdwTime <> PrvEvent Then

PrvEvent = mEventdwTime

StopTime = GetTickCount

Else

' 如果当前时间与开始监视时间超过3,600,000 Ms 则关机

If (GetTickCount - StopTime) >= (60 60 1000) Then

Call ExitWindowsEx(EWX_LOGOFF Or EWX_FORCE Or EWX_SHUTDOWN, 0)

End If

End If

End Sub

窗体上有个Timer控件，Name:Timer1

刚写的，2000 server + vb60 测试通过

Option Explicit

Private Sub Form_Load()

    Dim mHour As Date, mNow As Date, mSecond As Long

    mNow = Format(Now, "YYYY-MM-DD hh:mm:ss")           '格式化当前时间

    mHour = Format(mNow, "YYYY-MM-DD hh:00:00")         '格式化当前时间，精确到小时

    mSecond = DateDiff("s", mHour, mNow)                '计算两者之间相差多少秒

    MsgBox "从当前时间到当前小时，相差了：" & mSecond & " 秒。", 0, "计算时间差："

End Sub

换个思路, 用字符串比较:

SELECT FROM data where format(now(),"yyyymmddhh") = format(dt,"yyyymmddhh")

把当前北京时间（东八区）减去8小时就是格林威治时间（零时区），然后把它加上（东时区）或者减去（西时区）指定地区的时区数，就是该地区的当前时间了，比如：

Dim z As Date, x As Date

z = DateAdd("h", -8, Now) '这是格林威治时间

x = DateAdd("h", -5, z) '这是美国东部标准时间（西五区）

以上就是关于vb显示时间我要24小时制的全部的内容，包括:vb显示时间我要24小时制的、VB中如何编写当前时间5个小时的时间 且静态显示。、VB中怎么使now时间函数显示成24小时格式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！