time.asp

WAP手机网页XXXXX WAP手机网页XXXXX

<%
Class ImplMocomUtilTime
Private dtmPtr
Private intYear, intMonth, intDay, intHour, intMinute, intSecond

Private Sub Class_Initialize()
    dtmPtr = Now()
    Call initDate
End Sub

Private Sub initDate()
    intYear = Year(dtmPtr)
    intMonth = Month(dtmPtr)
    intDay = Day(dtmPtr)
    intHour = Hour(dtmPtr)
    intMinute = Minute(dtmPtr)
    intSecond = Second(dtmPtr)
End Sub

Private Sub initTime()
    If intYear > 0 And intMonth > 0 And intDay > 0 Then
        dtmPtr = CDate(intYear & "-" & intMonth & "-" & intDay & " " & intHour & ":" & intMinute & ":" & intSecond)
    End If
End Sub

Public Property Let tmYear(ByVal intPtr)
    intYear = intPtr
    If intPtr > 0 Then Call initTime
End Property

Public Property Let tmMonth(ByVal intPtr)
    intMonth = intPtr
    If intPtr > 0 Then Call initTime
End Property

Public Property Let tmDay(ByVal intPtr)
    intDay = intPtr
    If intPtr > 0 Then Call initTime
End Property

Public Property Let tmHour(ByVal intPtr)
    intHour = intPtr
    Call initTime
End Property

Public Property Let tmMinute(ByVal intPtr)
    intMinute = intPtr
    Call initTime
End Property

Public Property Let tmSecond(ByVal intPtr)
    intSecond = intPtr
    Call initTime
End Property

Public Property Get tmYear()
    tmYear = intYear
End Property

Public Property Get tmMonth()
    tmMonth = intMonth
End Property

Public Property Get tmDay()
    tmDay = intDay
End Property

Public Property Get tmHour()
    tmHour = intHour
End Property

Public Property Get tmMinute()
    tmMinute = intMinute
End Property

Public Property Get tmSecond()
    tmSecond = intSecond
End Property

Public Property Let DateX(ByVal dtmIn)
    dtmPtr = dtmIn
    Call initDate
End Property

Public Property Get DateX()
    DateX = dtmPtr
End Property

Public Property Let TimeX(ByVal lngIn)
    dtmPtr = getDate(lngIn)
    Call initDate
End Property

Public Property Get TimeX()
    TimeX = getTime(dtmPtr)
End Property

Public Function newInstance()
    Set newInstance = New ImplMocomUtilTime
End Function
End Class
%>