Unix Times (From, To, and Epoch)

   Public ReadOnly Property Epoch() As DateTime

        Get

            Return New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)

        End Get

    End Property


    Public Function FromUnix(ByVal seconds As Integer, local As Boolean) As DateTime

        Dim dt = Epoch.AddSeconds(seconds)

        If local Then dt = dt.ToLocalTime

        Return dt

    End Function


    Public Function ToUnix(ByVal dt As DateTime) As Integer

        If dt.Kind = DateTimeKind.Local Then dt = dt.ToUniversalTime

        Return CInt((dt - Epoch).TotalSeconds)

    End Function

WriteFile

    Sub WriteFile(sText As String, sFile As String)

        ' Try

        ' If System.IO.File.Exists("logme") Then

        System.IO.File.AppendAllText(sFile.ToString, sText.ToString & vbCrLf)

        ' End If

        'Catch

        'End Try

    End Sub