本文整理汇总了VB.NET中System.TimeZone.CurrentTimeZone属性的典型用法代码示例。如果您正苦于以下问题：VB.NET TimeZone.CurrentTimeZone属性的具体用法？VB.NET TimeZone.CurrentTimeZone怎么用？VB.NET TimeZone.CurrentTimeZone使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.TimeZone的用法示例。
在下文中一共展示了TimeZone.CurrentTimeZone属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: TimeZoneDemo
' Example of selected TimeZone class elements.
Imports System.Globalization
Module TimeZoneDemo
Sub Main( )
Const dataFmt As String = "{0,-30}{1}"
Const timeFmt As String = "{0,-30}{1:yyyy-MM-dd HH:mm}"
Console.WriteLine( "This example of selected " & _
"TimeZone class elements generates the following " & _
vbCrLf & "output, which varies depending on the " & _
"time zone in which it is run." & vbCrLf )
' Get the local time zone and the current local time and year.
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
Dim currentDate As DateTime = DateTime.Now
Dim currentYear As Integer = currentDate.Year
' Display the names for standard time and daylight saving
' time for the local time zone.
Console.WriteLine( dataFmt, "Standard time name:", _
localZone.StandardName )
Console.WriteLine( dataFmt, "Daylight saving time name:", _
localZone.DaylightName )
' Display the current date and time and show if they occur
' in daylight saving time.
Console.WriteLine( vbCrLf & timeFmt, _
"Current date and time:", currentDate )
Console.WriteLine( dataFmt, "Daylight saving time?", _
localZone.IsDaylightSavingTime( currentDate ) )
' Get the current Coordinated Universal Time (UTC) and UTC
' offset.
Dim currentUTC As DateTime = _
localZone.ToUniversalTime( currentDate )
Dim currentOffset As TimeSpan = _
localZone.GetUtcOffset( currentDate )
Console.WriteLine( timeFmt, "Coordinated Universal Time:", _
currentUTC )
Console.WriteLine( dataFmt, "UTC offset:", currentOffset )
' Get the DaylightTime object for the current year.
Dim daylight As DaylightTime = _
localZone.GetDaylightChanges( currentYear )
' Display the daylight saving time range for the current year.
Console.WriteLine( vbCrLf & _
"Daylight saving time for year {0}:", currentYear )
Console.WriteLine( "{0:yyyy-MM-dd HH:mm} to " & _
"{1:yyyy-MM-dd HH:mm}, delta: {2}", _
daylight.Start, daylight.End, daylight.Delta )
End Sub
End Module
'This example of selected TimeZone class elements generates the following
'output, which varies depending on the time zone in which it is run.
'
'Standard time name: Pacific Standard Time
'Daylight saving time name: Pacific Daylight Time
'
'Current date and time: 2006-01-06 16:47
'Daylight saving time? False
'Coordinated Universal Time: 2006-01-07 00:47
'UTC offset: -08:00:00
'
'Daylight saving time for year 2006:
'2006-04-02 02:00 to 2006-10-29 02:00, delta: 01:00:00