vba - 显示当前时间 (EST)

Question

我创建了一个用户窗体，其中包含一个文本框，该文本框将显示美国东部时间的当前时间。唯一的问题是，反射(reflect)的时间当然是我们国家的当前时间，所以我想将其转换为 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

Answer 1

您需要使用 TimeValue 函数，如下所示:

txtDate.Value = Format(Now - TimeValue("12:00:00"), "mm/dd/yyyy")