Option Strict On
Imports System
Public Class Time
Private Second As Integer
Public Sub DisplayCurrentTime( )
System.Console.WriteLine(Second)
End Sub
Public Sub New(ByVal dt As System.DateTime)
Second = dt.Second
End Sub
Public Sub New(ByVal Second As Integer)
Me.Second = Second
End Sub
End Class
Module Module1
Sub Main( )
Dim currentTime as System.DateTime = System.DateTime.Now
Dim time1 As New Time(currentTime)
time1.DisplayCurrentTime( )
Dim time2 As New Time(30)
time2.DisplayCurrentTime( )
End Sub
End Module
|