German Kalenderwoche ermitteln

[Wolli013]

Wi ermittelt man die aktuelle Kalenderwoche?
Gibt es da eine Date funktion?

In der Forumsuche habe ich leider nichts gefunden.
Über Antworten würde ich mich freuen.

 

[klaus]

Gib mal week number oben rechts in das Search Fenster ein, dann bekommst Du einige Links zum Thema.

 

[Wolli013]

Danke für die schnelle Antwort!

 

[Wolli013]

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("normal")
Dim dt As AHDateTime
dt.Initialize
dt.Pattern = "w"
Label2.Text = "Kalenderwoche: " & dt.format(DateTime.Now)
End Sub

Das klappt soweit Super, nur wie bekomme ich von einem bestimten Datum die KW
z.B. 21.01.2015 hin.
Was muss ich statt (DateTime.Now) einsetzen?

 

[klaus]

Ich hab diese Library noch nie gebraucht, müsste auch erst suchen.

 

[jobaw245]

Hallo Wolli013
Du kannst nicht einfach bei "dt.Pattern = "w" einsetzen. jjjj und mm und dd u.s.w. sind festgelegte Sachen für Jahr,Monat und Tag.
"w" gibt es nicht.
Du musst erst einmal herausfinden was für ein Wochentag der 01.01 ist . Ist der erste Tag des Jahres größer als Donnerstag ist die erste
Komplette Woche vom 28.12.- 03.01 die Kalenderwoche 1 .Ist der 01.01 weniger wie Freitag ist die Kalenderwoche noch die 53 , auch wenn schon
Januar ist.

 

[Wolli013]

Doch es geht mit "dt.Pattern = "w"
weil ich eine (Libary AHLocale) nutze, funktioniert ja auch alles, nur immer mit dem heutigen Datum und ich möchte ja ein ganz bestimtes Datum einsetzen.

 

[DonManfred]

ja ein ganz bestimtes Datum einsetzen.

Dann mach das doch und
setze bei

dt.format(DateTime.Now)

ein anderes Datum ein.

dt.format(datetime.DateParse("23.02.2015"))

 

[Wolli013]

Vielen Dank, genau das habe ich gebraucht.