Public Class TimeZoneClass
Private dt As DateTimeOffset
Private tz As TimeZoneInfo
Public Sub New(dateTime As DateTimeOffset, timeZone As TimeZoneInfo)
dt = dateTime
tz = timeZone
End Sub
Public ReadOnly Property DateTime As DateTimeOffset
Get
Return dt
End Get
End Property
Public ReadOnly Property TimeZone As TimeZoneInfo
Get
Return tz
End Get
End Property
End Class
Module Module1
Sub Main()
Dim timeZoneObjects() As TimeZoneClass = {New TimeZoneClass(Date.Now, TimeZoneInfo.Local),
New TimeZoneClass(Date.Now, TimeZoneInfo.Utc)}
For Each timeZoneO In timeZoneObjects
Console.WriteLine("{0}: {1:G}",
If(timeZoneO.TimeZone Is Nothing, "<null>", timeZoneO.TimeZone),
timeZoneO.DateTime)
Next
End Sub
End Module
' run:
'
' (UTC+02:00) Jerusalem: 12-4-16 8:00:50 AM
' UTC: 12-4-16 8:00:50 AM
