[مساعدة]

السلام عليكم

كما تفضل الأخ الماجيك مسعد، أخذ الوقت من النت

تفضلي الكود

كود :

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    MsgBox(GetOnlineDateTime)
End Sub

كود :

Function GetOnlineDateTime() As DateTime
    Dim client = New Net.Sockets.TcpClient("time.nist.gov", 13)
    Using streamReader = New IO.StreamReader(client.GetStream())
        Dim response = streamReader.ReadToEnd()
        Dim utcDateTimeString = response.Substring(7, 17)
        Dim localDateTime = DateTime.ParseExact(utcDateTimeString, "yy-MM-dd HH:mm:ss", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeUniversal)
        Return (localDateTime)
    End Using
End Function