VB6之從1970年1月1日起的秒數 的與C語言類似的時間函數

 

程式裡 時間一般都用 1970-1-1 到現在的時間了　　

Function getSecondsFrom1970() As Long    '%s　 seconds since `00:00:00 1970-01-01 UTC" (a GNU extension)    getSecondsFrom1970 = DateDiff("s", "1970/01/01", Now())    '2011/03/02 18:11:24 =>1299089484    End FunctionFunction getDateTimeFromSeconds(ByVal seconds As Long) As String    getDateTimeFromSeconds = Format(DateAdd("s", seconds, "1970/01/01"), "YYYY/MM/DD HH:mm:ss")    '1299089484=>2011/03/02 下午 06:11:24    End Function

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

以前 我老笨了，居然 根據now獲得 年月日 小時 分鐘 秒，然後再弄個 閏年判斷函數，從1970年 計算到現在。。真是弱智到頂了。。。