Option Strict On
Imports System
Public Class Time
' Private variables
Private Year As Integer
Private Month As Integer
Private mDate As Integer
Private Hour As Integer
Private Minute As Integer
Private Second As Integer
' Public methods
Public Sub DisplayCurrentTime( )
System.Console.WriteLine("{0}/{1}/{2} {3}:{4}:{5}", Month, mDate, Year, Hour, Minute, Second)
End Sub 'DisplayCurrentTime
' Constructor
Public Sub New(ByVal theYear As Integer,ByVal theMonth As Integer, _
ByVal theDate As Integer, ByVal theHour As Integer, _
ByVal theMinute As Integer, ByVal theSecond As Integer)
Year = theYear
Month = theMonth
mDate = theDate
Hour = theHour
Minute = theMinute
Second = theSecond
End Sub
End Class 'Time
Module Module1
Sub Main( )
Dim timeObject As New Time(2005, 3, 25, 9, 35, 20)
timeObject.DisplayCurrentTime( )
End Sub
End Module
3/25/2005 9:35:20