在VBScript中使用类(6)

              Public Property Get StartTime
                      StartTime = Hour(internal_StartTime) & _
                              ":" & Minute(internal_StartTime)
              End Property
              Public Property Let StartTime(ByVal varTimeIn)
                      If IsDate(varTimeIn) Then
                              internal_StartTime = varTimeIn
                      End If
              End Property
              Private internal_ProgramDate
              Public Property Get ProgramDate
                      ProgramDate = Day(internal_ProgramDate) & _
                              " " & MonthName(Month(internal_ProgramDate)) & _
                              " " & Year(internal_ProgramDate)
              End Property
              Public Property Let ProgramDate(ByVal varDateIn)
                      If IsDate(varDateIn) Then
                              internal_ProgramDate = varDateIn