Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen | VB-Versionen: VB.NET | 25.01.07 |
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: | Views: 8.857 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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".