Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen | VB-Versionen: VB2005, VB2008 | 23.07.09 |
Sommer- oder Winterzeit und Beginn/Ende der Sommerzeit ermitteln Ein Code-Ausschnitt, der zeigt, wie man die aktuelle Zeitzone ermittelt und zudem auch den Beginn und das Ende der Sommerzeit in Erfahrung bringt. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.511 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe der TimeZone-Klasse lässt sich sehr einfach die aktuell eingestellte Zeitzone ermitteln und somit auch, ob Sommer- oder Winterzeit eingestellt ist. Weiterhin stellt uns die Klasse zudem Eigenschaften zur Verfügung, um den Beginn und das Ende der Sommerzeit in Erfahrung zu bringen.
With TimeZone.CurrentTimeZone ' aktuelle Zeitzone (Sommer-/Winterzeit) If .IsDaylightSavingTime(Now) Then ListBox1.Items.Add("Aktuelle Zeitzone: " & .DaylightName) Else ListBox1.Items.Add("Aktuelle Zeitzone: " & .StandardName) End If ' Beginn und Ende der Sommerzeit ListBox1.Items.Add("Beginn der Sommerzeit: " & .GetDaylightChanges(Year(Now)).Start) ListBox1.Items.Add("Ende der Sommerzeit: " & .GetDaylightChanges(Year(Now)).End) End With