timeimpl

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· 代码 · 共 42 行

Public tmYear
Public tmMonth
Public tmDay
Public tmHour
Public tmMinute
Public tmSecond
Private dtmTime

Private Sub Class_Initialize()
    dtmTime = Now()
    Call Parse
End Sub

Public Function MakeDate()
    dtmTime = DateSerial(tmYear, tmMonth, tmDay) & " " & TimeSerial(tmHour, tmMinute, tmSecond)
    MakeDate = dtmTime
End Function

Public Function MakeTime()
    dtmTime = DateSerial(tmYear, tmMonth, tmDay) & " " & TimeSerial(tmHour, tmMinute, tmSecond)
    MakeTime = GetTime(dtmTime)
End Function

Public Sub InitDate(ByVal dtmIn)
    dtmTime = dtmIn
    Call Parse
End Sub

Public Sub InitTime(ByVal lngIn)
    dtmTime = GetDate(lngIn)
    Call Parse
End Sub

Private Sub Parse()
    tmYear = Year(dtmTime)
    tmMonth = Month(dtmTime)
    tmDay = Day(dtmTime)
    tmHour = Hour(dtmTime)
    tmMinute = Minute(dtmTime)
    tmSecond = Second(dtmTime)
End Sub