Mega Code Archive
Constructor with parameters
<![CDATA[
Imports System
Public Class MainClass
Shared Sub Main()
Dim currentTime As DateTime = DateTime.Now
Dim time1 As New Time(currentTime)
time1.DisplayCurrentTime( )
Dim time2 As New Time(2005, 11, 18, 11, 3, 30)
time2.DisplayCurrentTime( )
End Sub
End Class
Public Class Time
Private year As Integer
Private month As Integer
Private dayOfMonth As Integer
Private hour As Integer
Private minute As Integer
Private second As Integer
Public Sub DisplayCurrentTime( )
Console.WriteLine( _
"{0}/{1}/{2} {3}:{4}:{5}", _
month, dayOfMonth, year, hour, minute, second)
End Sub
Public Sub New(ByVal dt As DateTime)
year = dt.Year
month = dt.Month
dayOfMonth = dt.Day
hour = dt.Hour
minute = dt.Minute
second = dt.Second
End Sub
Public Sub New( _
ByVal year As Integer, _
ByVal month As Integer, _
ByVal dayOfMonth As Integer, _
ByVal hour As Integer, _
ByVal minute As Integer, _
ByVal second As Integer)
Me.year = year
Me.month = month
Me.dayOfMonth = dayOfMonth
Me.hour = hour
Me.minute = minute
Me.second = second
End Sub
End Class
]]>