PDA

Vollständige Version anzeigen : IsoWoche


Nakoda
12.10.2018, 18:34
Moin allerseits,

hier (https://codekabinett.com/rdumps.php?Lang=1&targetDoc=vba-kalenderwoche-jahr-datum-ermitteln) habe ich den Code zur Berechnung von Kalenderwochen gefunden.

Aber anscheinend will das nicht so recht.
Wenn ich nun eine Abfrage erstelle oder es in einem Modul unterbringe geht wohl immer eine Woche verloren.

Hier die Abfrage:
SELECT Clng([speiseplandatum]) & "_" & [mahlzeit] AS MenuID,
Isoweek(Cdate([speiseplandatum])) AS KW,
a.speiseplandatum,
b.mahlzeit,
[c].[rezept] & Chr(13) & Chr(10) & "(für" & [a].[anzahlportionen] &
Iif([a].[anzahlportionen] = 1, "person)", "personen)") AS RPortion,
a.mahlzeitid
FROM tblrezepte AS c
INNER JOIN (tblmahlzeiten AS b
INNER JOIN tblspeiseplanrezepte AS a
ON b.mahlzeitid = a.mahlzeitid)
ON c.rezeptid = a.rezeptid;

Im Modul bau ich das dann so ein: strFilter = "Year([SpeiseplanDatum]) = " & Me.cboJahr & " AND IsoWeek(CDate([SpeiseplanDatum])) = " & Kalenderwoche(Me.cboKW, False)
Debug.Print IsoWeek(CDate([SpeiseplanDatum]))
Debug.Print strFilter
Der hier gezeigte 01.11.2017 war aber in der 45. KW.
Was ich nun nicht verstehe ist warum eine Woche weniger angezeigt wird.

Habt Ihr ne Idee?

UPDATE: Mist. Falsches Forum. @Mod: Bitte ggf. umparken. Soooorry.

hcscherzer
12.10.2018, 18:56
Fragen bitte NICHT im Code-Archiv stellen.
Hier ist der Platz für funktionierende Lösungen.
Das steht doch eigentlich dran, meine Güte.
Und Du bist seit 13 Jahren hier dabei ...

Nakoda
12.10.2018, 19:33
Deswegen das UPDATE und die bitte zu verschieben.
Kann doch mal passieren. :rolleyes: