学步园

方法一：       

    Dim NowDate As DateTime = System.DateTime.Now
    Dim OleDate As DateTime = CObj("01/01/1970 08:00:00")
    Dim nDay As TimeSpan = NowDate.Subtract(OleDate)
    TimeInt= CInt(nDay.TotalSeconds)

方法二：
    TimeInt = (System.DateTime.Now - CDate("01/01/1970 08:00:00")).TotalSeconds

方法三   

    TimeInt = CStr(DateDiff(Microsoft.VisualBasic.DateInterval.Second, CDate("01/01/1970 08:00:00"), Now)) '邮戳