■DateSerial関数
指定した年、月、日に対応する内部処理形式が日付型 (Date) の
Variant型 (バリアント型) の値を返す。

日付型 (Date) のVariant型 (バリアント型) の値 = DateSerial(年, 月, 日)

Dim varDate As Variant
varDate = DateSerial(1970, 1, 1)

■通算秒を求める

▼[VBA]
Dim lngDate As Long
Dim wNow As Date

wNow = "2005/06/11"
lngDate = DateDiff("s", #1/1/1970#, wNow) - 32400
Debug.Print lngDate
lngDate = CLng((wNow - DateSerial(1970, 1, 1)) * 86400 - 32400)
Debug.Print lngDate

▼[VB.NET]
'　名前空間のインポート
Imports Microsoft.VisualBasic.DateAndTime

Dim wNow As System.DateTime = "2005/06/11"
Dim lngDate As Long
lngDate = DateDiff("s", #1/1/1970#, wNow) - 32400
Debug.Write(lngDate)
lngDate = DateDiff("d", #1/1/1970#, wNow) * 86400 - 32400
Debug.Write(lngDate)

■通算秒をyyyy/MM/dd hh:mm:ssに変換する

[VB.NET]
'　名前空間のインポート
Imports Microsoft.VisualBasic.DateAndTime

Dim lngDate As Long = 1118415600
lngDate = lngDate + 32400
Dim oDate As Date = DateAdd("s", lngDate, "#1970/01/01#")
Debug.Write(lngDate)

---