Office: ISO Kalenderwoche als Datum umwandeln

Hallo zusammen,

ich habe folgendes Textfeld mit "jjjj.ww" in einer Access Tabelle
Nun benötige ich aber ein komplettes "Datum tt.mm.jjjj" in einer Abfrage.
Kann mir einer von Euch kurzfristig mit einer Funktion behilflich sein?

Vielen Dank vorab.

:)

 

Moinsen,

dabei handelt es sich wohl um die Formatierung. Tatsächlich interessant ist aber der Datentyp des Feldes und der darin gespeicherte Wert. Wenn es ein Feld vom Typ Text mit dem Inhalt zB 2017.44 wird's kompliziert. Eine Woche besteht nämlich aus 7 Tagen ...

 

Hallo,

mit dem 1. Tag der Woche kann ich helfen... wüsste sonst nicht wie!
Code:

Aufruf im Direktbereich:
Code:

 

Es ist Dir bewusst, dass eine Woche 7 Tage hat?
Montag einer Kalenderwoche

 

Vielen Dank für eure schnelle Unterstützung.
Ich habe beide Codes miteinander kombiniert.
Ein kurzer Test hat funktioniert.

PHP:

         Public Function ISO_WeekAsDate(YearKW As String) As Date
'gibt den Montag der übergebenen Kalenderwoche zurück
'verwendet die in Europa übliche Einstellung: KW 1 = die erste mit 4 Tagen
von Karl Donaubauer

Dim dMondayKW As Date
Dim iYearKW   As Integer
Dim iKW       As Integer

iYearKW = Left(YearKW, 4)
iKW = Right(YearKW, 2)
dMondayKW = DateSerial(iYearKW, 1, 1) + (iKW - 1) * 7
dMondayKW = dMondayKW + 1 - Weekday(dMondayKW, vbMonday)

If Format(dMondayKW, "ww", vbMonday, vbFirstFourDays) <> iKW Then dMondayKW = dMondayKW + 7
If (iKW = 1 Or iKW = 53) And Day(dMondayKW) > 4 And Day(dMondayKW) < 8 Then dMondayKW = dMondayKW - 7

ISO_WeekAsDate = dMondayKW
End Function