Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim time As New CTime(12, 30, 19)
Console.WriteLine(time.BuildString())
End Sub
End Class
Class CTime
Private mHour, mMinute, mSecond As Integer
' constructor
Public Sub New(ByVal mHour As Integer, _
ByVal mMinute As Integer, ByVal mSecond As Integer)
Me.mHour = mHour
Me.mMinute = mMinute
Me.mSecond = mSecond
End Sub ' New
' create String using Me and implicit references
Public Function BuildString() As String
Return "Me.ToUniversalString(): " & Me.ToUniversalString() _
& vbCrLf & "ToUniversalString(): " & ToUniversalString()
End Function ' BuildString
' convert to String in standard-time format
Public Function ToUniversalString() As String
Return String.Format("{0:D2}:{1:D2}:{2:D2}", _
mHour, mMinute, mSecond)
End Function ' ToUniversalString
End Class ' CTime
|
