German Kalenderwoche ermitteln

Wolli013

Active Member
Licensed User
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.
 

Wolli013

Active Member
Licensed User
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?
 

jobaw245

Member
Licensed User
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

Active Member
Licensed User
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.
 
Top