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?
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.
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.