Dim d As TimeZone = TimeZone.CurrentTimeZone
Dim dtdaylight As TimeSpan = New TimeSpan(5, 0, 0)
Dim dtNotdaylight As TimeSpan = New TimeSpan(6, 0, 0)
Try
If d.IsDaylightSavingTime(Date.Now) = True Then
MessageBox.Show(CStr(Date.UtcNow), "UTC")
MessageBox.Show(CStr(Date.UtcNow.Subtract(dtdaylight)), "NOW")
Else
MessageBox.Show(CStr(Date.UtcNow), "UTC")
MessageBox.Show(CStr(Date.UtcNow.Subtract(dtNotdaylight)), "NOW")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
MessageBox.Show(ex.StackTrace.ToString)
MessageBox.Show(ex.InnerException.ToString)
End Try