Week nummer

[Abyss]

Ik wil graag weten aan de hand van een datum welke week dit is.

Als ik een nieuw record toevoeg geeft Access automatische de datum van vandaag in het betreffende record.
Maar hoe kan ik dit zelfde met de week nummer doen.


Abyss

 

[Tha Devil]

Ik kom hier tegen dat het met de functie datediff() moet kunnen.

 

[Abyss]

Ik kom hier tegen dat het met de functie datediff() moet kunnen.

Hier mee bereken je de tussen liggende weken.
Daar heb ik niets aan.
Ik wil weten welke week er bij een bepalde datum hoort.

Ik heb daar een oplossing voor.

 

[Abyss]

Om een bepaalde week te berekenen, moet je een query hebben met een datum notatie veld.
vervolgens maak je een algemene module aan.
Daar plak je het volgende in;

Public Function WeekNr(dDatum As Variant) As Integer

Dim iWeekNummer As Integer

If CStr(Format(dDatum, "DD:MM:JJ")) = "" Then
Exit Function
End If

iWeekNummer = Format(dDatum, "ww", vbMonday, vbFirstFourDays)
If iWeekNummer > 52 Then
If Format(dDatum + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
iWeekNummer = 1
End If
End If

WeekNr = iWeekNummer

End Function

Vervolgens maak je in de betreffende Datum query een veld aan met de naam Weeknummer met als expression het datum veld.

 

[JPVerhasselt]

Weeknummer weergeven

weeknummer: Format(Date();"ww")

Hierbij kan date() ook vervangen worden door een datumveld uit de tabel

 

[Abyss]

Ja die werkt ook prima
Ik had deze ook bij MS gevonden:thumb:

Bedankt