28,391
社区成员
发帖
与我相关
我的任务
分享
Public Function GetTime(ByVal value)
GetTime = DateDiff("s", "1970-01-01 08:00:00", value)
End Function
Public Function GetDate(ByVal value)
GetDate = DateAdd("s", value, "1970-01-01 08:00:00")
End Function
Dim timeval
timeval = GetTime(dateNow())
Response.Write timeval & "<br/>"
Response.Write GetDate(timeval) & "<br/>"