我创建了一个用户窗体，其中包含一个文本框，该文本框将显示美国东部时间的当前时间。唯一的问题是，反映的时间当然是我们国家的当前时间，所以我想将其转换为 EST，即- 12:00从我们的时代开始。
Private Sub UserForm_Initialize()
If ActiveWorkbook.MultiUserEditing Then
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
txtDate.Value = Format(Now, "mm/dd/yyyy")
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
你需要使用TimeValue像这样的函数：
txtDate.Value = Format(Now - TimeValue("12:00:00"), "mm/dd/yyyy")
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
