Πώς να υπολογίσετε τη διαφορά μεταξύ ζωνών ώρας σε VB6

Visual Basic έρχεται με μια σειρά από εργαλεία για την ανάλυση των χρονικών ζωνών . Η " TimeZoneInfo " είδος της μεταβλητής σας επιτρέπει να ορίσετε συγκεκριμένες ζώνες ώρας ως μεταβλητές . Λειτουργίες σας επιτρέπουν να ελέγξετε την ώρα σε αυτές τις διάφορες ζώνες ώρας και να μετατρέψει αυτούς τους χρόνους με τις δικές τους μεταβλητές . Ένα ξεχωριστό σύνολο των εργασιών χειριστείτε ώρες και ημερομηνίες , την εύρεση της διαφοράς μεταξύ των δύο φορές που ορίζονται από τις διαφορετικές ζώνες ώρας . Οδηγίες
Η 1

Δημιουργήστε ένα πρόγραμμα της Visual Basic από τον κωδικό της Microsoft στη λίστα IDs ζώνη ώρας μητρώου σας :

Εισαγωγές System.Collections.ObjectModel

Εισαγωγές συστήματος . παγκοσμιοποίηση

Εισαγωγές System.IO

Ενότητα Παράδειγμα

Public Sub Main ( )

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

Dim timezones Όπως ReadOnlyCollection ( Από TimeZoneInfo ) = TimeZoneInfo.GetSystemTimeZones ( )

Dim sw Όπως StreamWriter = Νέα StreamWriter ( OUTPUTFILENAME , False )

For Each Χρονική ζώνη Όπως TimeZoneInfo σε ζώνες ώρας

Dim hasDST Όπως Boolean = timeZone.SupportsDaylightSavingTime

Dim offsetFromUtc Όπως TimeSpan = timeZone.BaseUtcOffset

Δημ. adjustRules ( ) Όπως System.TimeZoneInfo.AdjustmentRule

Dim offsetString Όπως String

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

sw.WriteLine ( " Display Name : { 0 , 40 } " , timezone . DisplayName )

sw.WriteLine ( "Standard Όνομα : { 0 , 39 } " , timeZone.StandardName )

sw.Write ( "Daylight Όνομα : { 0 , 39 } " , timezone . DaylightName )

sw.Write ( IIF ( hasDST , " *** Έχει " , " *** δεν έχει " ) )

sw.WriteLine ( " Θερινή ώρα ** * " )

offsetString = String.Format ( " { 0 } ώρες , { 1 } λεπτά " , offsetFromUtc.Hours , offsetFromUtc.Minutes )

sw.WriteLine ( « Μετατόπιση από την UTC: { 0 , 40 } " , offsetString )

adjustRules = timeZone.GetAdjustmentRules ( )

sw.WriteLine ( " Ο αριθμός των κανόνων προσαρμογής : { 0 , 26 } " , adjustRules.Length )

Αν adjustRules.Length > 0 τότε

sw.WriteLine ( "Κανόνες προσαρμογής : " )

για κάθε κανόνα Όπως TimeZoneInfo.AdjustmentRule Σε adjustRules

Dim transTimeStart Όπως TimeZoneInfo.TransitionTime = rule.DaylightTransitionStart

Dim transTimeEnd Όπως TimeZoneInfo.TransitionTime = rule.DaylightTransitionEnd

sw.WriteLine ( «Από { 0} έως { 1 } " , rule.DateStart , rule.DateEnd )

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

Αν δεν transTimeStart.IsFixedDateRule

sw.WriteLine ( "Αρχίζει στο { 0 : t } σε { 1 } της εβδομάδας { 2 } {3 } " , transTimeStart.TimeOfDay , _

transTimeStart.DayOfWeek , _

transTimeStart.Week , _

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( " Κυκλική { 0 : t } σε { 1 } της εβδομάδας { 2 } {3 } " , transTimeEnd.TimeOfDay , _

transTimeEnd.DayOfWeek , _

transTimeEnd.Week , _

MonthName ( transTimeEnd.Month ) )

υπόλοιπα

sw.WriteLine ( "Αρχίζει στο { 0 : t } σε { 1 } { 2 } " , transTimeStart.TimeOfDay , _

transTimeStart.Day , _

MonthName ( transTimeStart.Month ) )

sw.WriteLine ( " Κυκλική { 0 : t } σε { 1 } { 2 } " , transTimeEnd.TimeOfDay , _

transTimeEnd.Day , _

MonthName ( transTimeEnd. Μήνας ) )

End If

Επόμενο

End If

Επόμενο

sw.Close ( )
Η 2

Δημιουργήστε το ακόλουθο πρόγραμμα της Visual Basic :

Δημόσια Shared Sub ( ) Κύρια

Dim timeZone1 Όπως TimeZoneInfo

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

Dim timeZone2 Όπως TimeZoneInfo

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

Dim διαφορά Όπως Long = DateDiff ( DateInterval.Hour , 1stTimeZone.StandardTime , 2ndTimeZone.StandardTime )

Console.WriteLine ( διαφορά )
εικόνων 3

Αντικαταστήστε το " Pacific Standard Time" με την πρώτη ζώνη ώρας που θέλετε να συγκρίνετε , φροντίζοντας να αναπαράγουν με ακρίβεια το ID από τη λίστα από το Βήμα 1 .
Η 4

Αντικαταστήστε το " Mountain Standard Time " με την δεύτερη ζώνη ώρας που θέλετε να συγκρίνετε .
5

Εκτελέστε το πρόγραμμα .


Η