VB6 1970-01-01秒數時間格式轉換

在偶然的機會下，看到了時間格式1299089484，
很多人或許還不知道這是甚麼吧，這個格式是自1970-01-01開始至今的秒數
依照 Linux Help 說明:
　
# date --help
%s　 seconds since `00:00:00 1970-01-01 UTC" (a GNU extension)
　
例如: 從Dongle Reader讀回的日期時間為 1299089484
　
以 VB6 的 DateDiff函式
傳回: Variant (Long) 的值，表示兩個日期間相差的時間間隔單位數目。
　
輸入日期時間，求 UTC 秒數??
?DateDiff("s", "1970/01/01","2011/03/02 18:11:24" )
　1299089484　
　
　
反之，已知 UTC 秒數，求得日期時間??
?DateAdd("s", 1299089484, "1970/01/01")
2011/03/02 下午 06:11:24　
　
若嫌不美觀，格式化一下
?Format(DateAdd("s", 1299089484, "1970/01/01"),"YYYY/MM/DD HH:mm:ss")
2011/03/02 18:11:24