This code will return the current UTC time from the WorldTimeAPI.org web server.
Public Function GetUTCTime() As Date
Dim XMLHTTP As Object
Dim ResponseText As String
Dim MyURL As String
Dim L As Long, S As String
MyURL = "http://worldtimeapi.org/api/ip.txt"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", MyURL, False
XMLHTTP.send
ResponseText = XMLHTTP.ResponseText
ResponseText = Replace(ResponseText, Chr(10), vbNewLine)
Set XMLHTTP = Nothing
S = ResponseText
L = InStr(S, "utc_datetime:")
S = Right(S, Len(S) - L + 1)
S = Left(S, 33)
S = Mid(S, 20, 2) & "/" & Mid(S, 23, 2) & "/" & Mid(S, 15, 4) & " " & Right(S, 8)
GetUTCTime = CDate(S)
End Function
This code will Restore Down the Access Application Window
MyUTCTime = GetUTCTime()