" " & MonthName(Month(internal_ProgramDate)) & _

                               " " & Year(internal_ProgramDate)

               End Property

               Public ProgramTitle

        End Class

        Dim objTVShow

        Set objTVShow = New TVProgram

        objTVShow.StartTime = CDate("17:30")

        objTVShow.internal_ProgramDate = DateSerial(1999,9,17)

        objTVShow.ProgramTitle = "The Jerry Springer Show"

        Response.Write objTVShow.ProgramTitle & " is on at " & _

              objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."

程序的结果如下：

The Jerry Springer Show is on at 5:30pm on 17 September 1999.

感谢Sophie的翻译

如果有问题欢迎在http://www.showc.com中提出

上一页  [1] [2]