Aktuelle Kalenderwoche in VB.NET

Die aktuelle Kalenderwoche in VB.NET auslesen ist gar kein Problem. Hierzu ließt man in erster Linie die aktuelle Zeit, beziehungsweise das Datum aus. Da es auf der Welt verschiedene Zeitzonen gibt, ist es aber auch wichtig die CurrentCulture zu setzen. Zum Schluss muss auch noch der erste Tag der Kalender-Woche angegeben werden, damit VB.NET alle benötigten Daten hat.

Die aktuelle Kalenderwoche auslesen in VB.NET – so einfach gehts!

Natürlich war die Erklärung oben reine Theorie. Anbei der Visual Studio Code, um die derzeitige Kalenderwoche auslesen zu können.

• In Zeile 1 wird das aktuelle Datum und Zeit in die Variable current geschrieben
• In Zeile 2 wird die derzeitige Culture gesetzt. Diese wird aus dem ausführenden Windows System ausgelesen.
• In der Zeile 3 wird dann die aktuelle Kalenderwoche ermittelt. Hier wird das aktuelle Datum mitgegeben und der erste Kalender-Tag der Woche

Dim current = System.DateTime.Now
Dim culture = System.Globalization.CultureInfo.CurrentCulture
Dim intWeek = culture.Calendar.GetWeekOfYear(current, System.Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)

MsgBox(intWeek.toString())

Zur Vermeidung von konvertierungs-Fehlern lasse ich nun die Variable intWeek (in der sich die KW befindet) in einen String wandeln und in einer MsgBox ausgeben. Hier wird die aktuelle KW als Zahl ausgegeben.