PDA

Vollständige Version anzeigen : Kalenderwochen


Thomas Ruf
10.07.2001, 10:38
Hallo,
suche eine Funktion welche aus einem beliebigen Datum die entsprechende Kalenderwoche liefert.

Kalenderwoche = Funktion(Datum)

Axel37
10.07.2001, 10:44
hallo thomas,
versuchs mal hiermit:
Steuerelementinhalt =DatTeil("ww";Datum();2;2)

in einem ungebundenen feld oder halt woanders

Thomas Ruf
11.07.2001, 05:58
Hallo Axel
könntest Du Deine Funktion ein bißchen erklären

Vielen Dank

Sandrine
11.07.2001, 07:11
Hallo Thomas,

schau mal in die Online-Hilfe unter DatePart, das müßte Dir weiterhelfen. Im Beispiel wird die Bestimmung des Quartals zu einem Datum angegeben, statt dem q müßtest Du so wie Axel geschrieben hat, ww verwenden, dann wird Dir die Kalenderwoche ausgegeben.

Gruß, Sandrine

Roman
15.07.2001, 12:21
Versuche es besser mit dieser Function, sonst hast Du wenn Du Pech hast eine KW 0 oder KW 53:

Option Compare Database

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


Aufruf mit: =dt_Kalenderwoche([Datum])


Roman