Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen | VB-Versionen: VB.NET | 27.12.06 |
Sommer- oder Winterzeit? (VB.NET) Mit einem Einzeiler lässt sich unter VB.NET schnell ermitteln, ob es sich aktuell um die Sommer- oder Winterzeit handelt. | ||
Autor: Dieter Otter | Bewertung: | Views: 17.838 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Sicherlich haben Sie schon einmal folgende Zeitangabe gesehen: 08:45 +02:00
Hierbei wird der Ortszeit die Zeit-Differenz zur GMT-Zeitangabe nachgestellt. Je nach Jahreszeit beträgt diese bspw. in Deutschland 1 Stunde (Winterzeit) oder 2 Stunden (Sommerzeit).
Diese Schreibweise findet man bspw. auch im Header von EMails wieder.
Unter VB.NET lässt sich die Zeitdifferenz zwischen GMT-Zeitangabe und Ortszeit sehr einfach ermitteln, wie nachfolgender Einzeiler verdeutlicht:
Public Function GMTDiff(ByVal vDate As Date) As Long ' Zeit-Differenz zur GMT-Zeitangabe in Stunden Return Val(vDate.ToString("zzzz").Substring(0, 3)) End Function
Durch Abfrage der GMTDiff-Funktion lässt sich sehr schnell feststellen, ob Winterzeit oder Sommerzeit eingestellt ist:
If GMTDiff(Now) = 2 Then MsgBox("Sommerzeit ist eingestellt.") Else MsgBox("Winterzeit ist eingestellt.") End If