aus aktuellem datum Kalenderwoche lesen


suja

Grünschnabel
Ich kann mir in label4 das heutige datum ausgeben lassen. Aber in Label5 steht nur ww statt KW21. Warum! Bitte um schnelle Hilfe!

Dim Datum1 As String
Dim Datum2 As String

Datum1 = Date.Today.ToString("dd.MM.yyyy")
Label4.Text = Datum1
Datum2 = Format(Datum1, "ww")
Label5.Text = Datum2
 

JensG

Erfahrenes Mitglied
Hallo,

da nützt auch ToString nix. ToString bietet zwar Formatierungsmöglichkeiten aber IMHO ist es nicht möglich die Kalenderwoche auszugeben.
Die Kalenderwoche kann man z.B. so bestimmen.

Code:
Dim myCal As New GregorianCalendar

getKW = myCal.GetWeekOfYear(Date, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
Jens
 

Neue Beiträge