Ako vypočítať rozdiel medzi časovými pásmami vo VB6

Visual Basic prichádza s radom nástrojov pre analýzu časových pásiem . " TimeZoneInfo " typ premennej umožňuje definovať špecifické časové pásmo ako premenné . Operácie umožňujú zistiť čas v týchto rôznych časových pásmach a previesť tieto časy vlastných premenných . Samostatný súbor operácií manipulovať čas a dátum , nájsť rozdiel medzi týmito dvoma časmi , ktoré ste definovali z rôznych časových pásmach . Pokyny dovolená 1

Vytvoriť Visual Basic program z nasledujúceho kódu spoločnosti Microsoft na zozname Časové pásmo ID vášho registra :

Dovoz System.Collections.ObjectModel

Dovoz systému . globalizácia

Imports System.IO

modul Príklad

Public Sub Main ( )

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

Dim časových pásiem ako ReadOnlyCollection ( Of TimeZoneInfo ) = TimeZoneInfo.GetSystemTimeZones ( )

Dim sw ako StreamWriter = new StreamWriter ( OutputFileName , False )

pre každé časové pásmo ako TimeZoneInfo v časových pásiem

Dim hasDST As Boolean = timeZone.SupportsDaylightSavingTime

Dim offsetFromUtc Ako TimeSpan = timeZone.BaseUtcOffset

Dim adjustRules ( ) As System.TimeZoneInfo.AdjustmentRule

Dim offsetString As String

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

sw.WriteLine ( " Display Name : { 0 , 40 } " , časové pásmo . DispayName )

sw.WriteLine ( " Standard Name : { 0 , 39 } " , timeZone.StandardName )

sw.Write ( " Daylight Meno : { 0 , 39 } " , timezone . DaylightName )

sw.Write ( IIF ( hasDST , " *** Has " , " *** nemá oprávnenie " ) )

sw.WriteLine ( " Daylight Saving Time ** * " )

offsetString = String.Format ( " { 0 } hodín , { 1 } minút " , offsetFromUtc.Hours , offsetFromUtc.Minutes )

sw.WriteLine ( " odchýlka od UTC : { 0 , 40 } " , offsetString )

adjustRules = timeZone.GetAdjustmentRules ( )

sw.WriteLine ( " Počet pravidiel nastavenie : { 0 , 26 } " , adjustRules.Length )

Ak adjustRules.Length > 0 Then

sw.WriteLine ( " Pravidlá pre úpravy : " )

pre každé pravidlo Ako TimeZoneInfo.AdjustmentRule V adjustRules

Dim transTimeStart Ako TimeZoneInfo.TransitionTime = rule.DaylightTransitionStart

Dim transTimeEnd Ako TimeZoneInfo.TransitionTime = rule.DaylightTransitionEnd

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

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

Ak nie je transTimeStart.IsFixedDateRule

sw.WriteLine ( " začína na { 0 : T } na { 1 } z { 2 } týždňa z { 3 } " , transTimeStart.TimeOfDay , _

transTimeStart.DayOfWeek , _

transTimeStart.Week , _

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( " Končí na { 0 : t } na { 1 } z { 2 } týždňa z { 3 } " , transTimeEnd.TimeOfDay , _

transTimeEnd.DayOfWeek , _

transTimeEnd.Week , _

MonthName ( transTimeEnd.Month ) )

Else

sw.WriteLine ( " Začína na { 0 : t } na { 1 } { 2 } " , transTimeStart.TimeOfDay , _

transTimeStart.Day , _

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( " Končí na { 0 : T } na { 1 } { 2 } " , transTimeEnd.TimeOfDay , _

transTimeEnd.Day , _

MonthName ( transTimeEnd. mesiac ) )

End If

Ďalšie

End If

Ďalšie

sw.Close ( )
2

Vytvorte nasledujúci program jazyka :

Public Shared Sub ( ) Hlavné

Dim timeZone1 Ako TimeZoneInfo

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

Dim timeZone2 Ako TimeZoneInfo

timeZone2 = TimeZoneInfo.FindSydtemTimeZoneByID ( " Mountain Standard Time " )

Dim rozdiel As Long = DateDiff ( DateInterval.Hour , 1stTimeZone.StandardTime , 2ndTimeZone.StandardTime )

Console.WriteLine ( rozdiel )
3

Nahradiť " Pacific Standard Time " s prvým časovom pásme , ktoré chcete porovnať , dávajte pozor , aby presne reprodukovať ID zo zoznamu z kroku 1.
4

Nahradiť " Mountain Standard Time " s druhou časovú zónu , ktorú chcete porovnať .
5

spustite program .

• Predchádzajúca strana: Visual Basic for Applications pre začiatočníkov 
• Ďalšia strana: Ako získať prístup Makro vyplniť stĺpce s ​​dátami