PDA

Vollständige Version anzeigen : Kreuztabelle-abfrage-auch nach Kalenderwoche?


Marjolijn
14.02.2001, 12:34
Halli hallo!

wer weiß wie mann in eine Kreuztabelle abfrage die Spalten nach KW ordnen kann. Mit dem Assistenten ist es möglich nach Jahr, Quartal oder Monat. Nur nach KW nicht. Jemanden eine Idee? Im Feld selber steht ein Datum und in der Abfrage soll er eine Auflistung wieviel in welche kw vorhanden sein muß...

Nockenwelle
14.02.2001, 19:31
Hallo,

das hatte ich mal im Beitragsarchiv bei Spotlight gefunden:

Function dt_Kalenderwoche(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((WeekDay(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = dt_Kalenderwoche(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
dt_Kalenderwoche = a
End Function

Die Funktion hält sich auch an die ISO-Norm.

Cu