Monatsarchiv für April 2009

[VB.Net] Ermitteln der Kalenderwoche aus Datum

Montag, den 6. April 2009

Anbei eine Funktion mit der man die Kalenderwoche zu einem Datum herausfinden kann:

Imports System.Globalization
Public Function getKW(ByVal Datum As Date) As Short
Dim CUI As New CultureInfo (CultureInfo.CurrentCulture.Name)
Return CUI.Calendar.GetWeekOfYear(Datum,_
CUI.DateTimeFormat.CalendarWeekRule,_
CUI.DateTimeFormat.FirstDayOfWeek)
End Function

Kategorie VB.net | 1 Kommentar »