long型日期转换为标准日期的问题

Question

我现在调用一个第三方组件，组件返回的时间类型是一个long型的日期，是由1970年某年月开始计时到当前的秒数（记不清具体日期了）。请问各位高手有没有一个什么函数可以直接将这个数值转换为当前日期的函数或者API？？
多谢！

Answer 1

Dim selDate As Date
    selDate = "2006-04-05 11:12:15"
    selDate = DateAdd("s", 10, selDate)
    Debug.Print selDate

Answer 2

DateAdd("s", 1148342400, "1970-1-1")返回1970-1-1经过1148342400秒的日期2006-5-23

Answer 3

首先你必須得弄清楚你那第三方軟件的起始時間點
即：1970年某月某日某時某分某秒
然後用DateAdd函數來實現要得到具體的起始時間也可以用DateAdd來實現