Public Shared Function GetTimestamp() As Integer
            Try
                Dim date1 As New DateTime(1970, 1, 1, 0, 0, 0)
                'Refernzdatum (festgelegt)
                Dim date2 As DateTime = DateTime.Now
                'jetztiges Datum / Uhrzeit
                Dim ts As New TimeSpan(date2.Ticks - date1.Ticks)
                ' das Delta ermitteln
                ' Das Delta als gesammtzahl der sekunden ist der Timestamp
                Return (Convert.ToInt32(ts.TotalSeconds))
            Catch ex As Exception
                Tools.ConsoleWrite("Server Fehler xTF00001: " & ex.Message)
            End Try
 
        End Function

        Public Shared Function GetDateFromTimestamp(ByVal unixTimestamp As _
          Integer) As DateTime
            Dim Span As TimeSpan
            Dim Startdate As Date = #1/1/1970#
 
            Try
                If unixTimestamp = 0 Then Return Startdate
 
                Span = New TimeSpan(0, 0, unixTimestamp)
            Catch ex As Exception
                Tools.ConsoleWrite("Server Fehler xTF00002: " & ex.Message)
            End Try
 
            Return Startdate.Add(Span)
        End Function