如何在两个标签中分隔时间和日期？我的代码在 1 个标签中显示时间和日期

Question

Private Sub Timer1_Timer()
Dim datUTC As Date

datUTC = Time_LocalToUTC(Now)

Me.lblCurrentTimeActual.Caption = Now
Me.lblUTCTimeActual.Caption = CStr(datUTC)
Me.lblPhilippinesTimeActual.Caption = 
CStr(DateAdd("h", 8, datUTC))


End Sub

Public Function Time_LocalToUTC(ByVal 
the_date As Date) As Date
On Error GoTo ErrorTrap
' Create a new instance of the WScript 
Shell
Dim oWshshell As Variant
Dim UTCOffset As Long

Set oWshshell = 
CreateObject("WScript.Shell")

' 复制世界时时钟偏移 注册表这确实说明了日光 节省

UTCOffset = oWshshell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")

'采用当前系统时间并添加来自注册表的 UTC 偏移量。 1440出品 ' 取 60 * 24，因为一天的单位有 1 等于一天 Time_LocalToUTC = the_date + (UTCOffset / 1440) 转到结束清理 错误陷阱： MsgBox "错误：" & Err.Description, vbOKCancel, "获取 UTC 时间时出错"

 EndCleanup:
 Set oWshshell = Nothing
 End Function[enter image description here] 
 [1]

Answer 1

Me.Label1.Caption = Format$(CStr(DateAdd("h", 8, 
 datUTC)), "hh:mm:ss AM/PM")
 Me.Label2.Caption = Format$(CStr(DateAdd("h", 8, 
 datUTC)), " mmmm dd, yyyy")

这解决了它。哈哈