Sommer- oder Winterzeit per WMI (VB.NET) Mit Hilfe der System.Management DLL (WMI) lässt sich u.a. auch ermitteln, ob Sommer- oder Winterzeit eingestellt ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.068
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der System.Management DLL (WMI) lässt sich u.a. auch ermitteln, ob Sommer- oder Winterzeit eingestellt ist.

Aktivieren Sie hierzu zunächst über "Projekt > Verweis hinzufügen" den Verweis auf System.Managment.

Fügen Sie nachfolgenden Code in den Codeteil der Form/Klasse ein:

Imports System.Management
...

' Sommer- oder Winterzeit?
Public Function IsSommerTime() As Boolean
  Dim oWMI As WqlObjectQuery
  Dim oList As ManagementObjectSearcher
  Dim oData As ManagementObject
  Dim bResult As Boolean
 
  ' WMI-Abfrage erstellen
  oWMI = New WqlObjectQuery("SELECT DaylightInEffect FROM Win32_ComputerSystem")
 
  ' Abfrage Rückgabe-Liste
  oList = New ManagementObjectSearcher(oWMI)
 
  ' Eintrag "DaylightInEffect" aus dem Rückgabe-Array auslesen
  For Each oData In oList.Get()
    bResult = oData("DaylightInEffect")
  Next 
 
  Return (bResult)
End Function

Die Funktion IsSommerTime gibt den Wert "True" zurück, falls das System auf Sommerzeit eingestellt ist, andernfalls "False".