Imports Microsoft.VisualBasic
Imports System.Environment
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Function SetAtomTime() As Integer
  Dim TimeServer As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
    ProtocolType.Tcp)
  Dim Daten(19) As Byte
  Dim AtomTime As String
  Dim Start As Integer
 
  Try
 
    ' Speichert die aktuelle Zeit
    Start = TickCount
 
    ' Baut Verbindung mit dem Server auf
    TimeServer.Connect(New IPEndPoint(IPAddress.Parse("192.53.103.103"), 13))
 
    ' Empfängt die aktuelle Zeit vom Server
    TimeServer.Receive(Daten)
 
  Catch Ex As SocketException
    SetAtomTime = 0
    Exit Function
  Finally
    TimeServer.Close()
  End Try
 
  AtomTime = Encoding.Default.GetString(Daten)
 
  TimeString = AtomTime.Substring(12, 8)
 
  Select Case AtomTime.Substring(3, 3)
    Case "JAN"
      DateString = "01-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "FEB"
      DateString = "02-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "MAR"
      DateString = "03-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "APR"
      DateString = "04-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "MAY"
      DateString = "05-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "JUN"
      DateString = "06-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "JUL"
      DateString = "07-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "AUG"
      DateString = "08-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "SEP"
      DateString = "09-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "OCT"
      DateString = "10-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "NOV"
      DateString = "11-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
    Case "DEC"
      DateString = "12-" & AtomTime.Substring(0, 2) & "-" & AtomTime.Substring( _
        7, 4)
  End Select
 
  ' Gibt die Abweichung in Millisekunden zurück
  Return TickCount - Start
 
End Function