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:     [ Jetzt bewerten ]	Views:  17.212
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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