Unix timestamp in VB

Okay, remember these date functions?
Here is another one when asked to submit a date/time as a Unix timestamp…

Calculated in seconds from January 1st, 1970 in Visual Basic.

Public Function fncConvertToUnixTimestamp(datDate As DateTime) As Double
    Dim datOrigin As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)
    Dim diff As TimeSpan = datDate.ToUniversalTime() - datOrigin
    Return (Math.Floor(diff.TotalSeconds))
End Function

Have a nice day!