Получить количество секунд, прошедших с начала Эпохи Unix - Visual Basic .NET

Формулировка задачи:

Вообщем нужно сделать функцию для бейсика чтобы выдавала как в пхп когда срабатывает функция

echo time();

Описание функции

Возвращает количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 GMT) до текущего времени.

Сделал, если кому надо

    Function Time()
        Dim a As Integer = 0
        Dim d, m, y As Integer
        d = TimeOfDay.Now.Day
        m = TimeOfDay.Now.Month
        y = TimeOfDay.Now.Year
        y = y - 1970
        m = m - 1
        d = d - 1
        y = y * 31556926
        m = m * 2629743
        d = d * 86400
        Return y + m + d
    End Function

null

Решение задачи: «Получить количество секунд, прошедших с начала Эпохи Unix»

textual
                            Листинг программы 
                        

                            Private Function seconds_from_unix_begining() As String
    Dim olddate As Date
    Date.TryParse("01.07.1970 00:00:00", olddate)
    Dim curdate As Date = My.Computer.Clock.GmtTime
    Return CInt(curdate.Subtract(olddate).TotalSeconds)
End Function
                        