aus aktuellem datum Kalenderwoche lesen

[suja]

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

 

[Alexander Schuc]

Hi.

 Datum2 = Format(Datum1, "ww")

Warum benutzt du hier nicht auch die ToString Methode?

MfG,
Alex

 

[JensG]

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.

Dim myCal As New GregorianCalendar

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

Jens