Visual Basic est livré avec un certain nombre d'outils pour l'analyse des fuseaux horaires. Le type de variable " TimeZoneInfo " vous permet de définir des fuseaux horaires spécifiques comme variables . Opérations vous permettent de contrôler le temps dans ces différents fuseaux horaires et de convertir ces temps de leurs propres variables . Un ensemble distinct des opérations manipuler dates et heures , trouver la différence entre les deux fois que vous avez définies dans les différents fuseaux horaires. Instructions
1

créer un programme Visual Basic à partir du code Microsoft suivante pour afficher le fuseau horaire identifiants de votre base de registre :

importations System.Collections.ObjectModel

System Imports. La mondialisation

Imports System.IO

Module Exemple

public Sub Main ()

Const OutputFileName As String = "C: \\ Temp \\ TimeZoneInfo.txt "

fuseaux horaires As ReadOnlyCollection (sur TimeZoneInfo ) = TimeZoneInfo.GetSystemTimeZones ()

sw As StreamWriter = New StreamWriter ( OutputFileName , Faux )

Chaque fuseauHoraire Comme TimeZoneInfo Fuseaux horaires dans

hasDST As Boolean = timeZone.SupportsDaylightSavingTime

offsetFromUtc As TimeSpan = timeZone.BaseUtcOffset

adjustRules Dim () As System.TimeZoneInfo.AdjustmentRule
< p> offsetString Dim As String

sw.WriteLine ( " ID: {0}" , timeZone.Id )

sw.WriteLine ("Nom d'affichage: {0, 40 }", fuseauHoraire . DisplayName )

sw.WriteLine ( " nom standard: {0, 39 }", timeZone.StandardName )

sw.Write ("Nom d'été: {0, 39 }", fuseauHoraire . DaylightName )

sw.Write (IIF ( hasDST , " *** A ", " *** n'a pas de« ) )

sw.WriteLine (« heure d' ** * ")

offsetString = String.Format ( " {0} heures , {1} minutes " , offsetFromUtc.Hours , offsetFromUtc.Minutes )

sw.WriteLine ( " Décalage de l'UTC : {0, 40 } ", offsetString )

adjustRules = timeZone.GetAdjustmentRules ()

sw.WriteLine ( " Nombre de règles d'ajustement : {0, 26 } ", adjustRules.Length )

Si adjustRules.Length > 0 Then

sw.WriteLine ( «Règles d'ajustement :")

pour chaque règle Comme TimeZoneInfo.AdjustmentRule En adjustRules

Dim transTimeStart Comme TimeZoneInfo.TransitionTime = rule.DaylightTransitionStart

transTimeEnd As TimeZoneInfo.TransitionTime = rule.DaylightTransitionEnd

sw.WriteLine ( " Du {0} {1 }", rule.DateStart , rule.DateEnd )

sw.WriteLine ( " Delta: {0}" , rule.DaylightDelta )

If Not transTimeStart.IsFixedDateRule

sw.WriteLine ( "Begins à {0 : t} sur {1} de la semaine {2} de {3} " , transTimeStart.TimeOfDay , _

transTimeStart.DayOfWeek , _

transTimeStart.Week , _ < br >

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( «Fins à {0: t} sur {1} de la semaine {2} de {3}" , transTimeEnd.TimeOfDay , _

transTimeEnd.DayOfWeek , _

transTimeEnd.Week , _

MonthName ( transTimeEnd.Month ) )

Else

sw.WriteLine ( "commence à {0 : t} sur {1} { 2}" , transTimeStart.TimeOfDay , _

transTimeStart.Day , _

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( " termine à {0 : t} sur {1} { 2}" , transTimeEnd.TimeOfDay , _

transTimeEnd.Day , _

MonthName ( transTimeEnd. mois ) )

End If

Suivant

End If

Suivant

sw.Close ()
2

créer le programme Visual Basic suivant :

public Shared Sub ( ) Main

timeZone1 As TimeZoneInfo

timeZone1 = TimeZoneInfo.FindSystemTimeZoneByID ( «Pacific Standard Time " )

timeZone2 As TimeZoneInfo

timeZone2 = TimeZoneInfo.FindSydtemTimeZoneByID (« heure normale des Rocheuses »)

différence As long = DateDiff ( DateInterval.Hour , 1stTimeZone.StandardTime , 2ndTimeZone.StandardTime )

Console.WriteLine ( différence )
3

Remplacer «Pacific Standard Time » avec le premier fuseau horaire que vous voulez comparer , en prenant soin de reproduire exactement l'ID de la liste de l'étape 1 .
4

Remplacer " heure normale des Rocheuses " avec le second fuseau horaire que vous voulez comparer .
5

exécuter le programme.