هذا كود جلب الوقت من الانترنت " توقيت جرينتش "
Dim UTCDateTime As String
Dim arrDT() As String
Dim http As Object
Dim UTCDate As String
Dim UTCTime As String
Const NetTime As String = "https://www.time.gov/"
On Error Resume Next
Set http = CreateObject("Microsoft.XMLHTTP")
On Error GoTo 0
http.Open "sa", NetTime & Now(), False, "", ""
http.Send
UTCDateTime = http.getResponseHeader("date")
[Text1] = UTCDateTime