date of birth query / verjaardag querie

Status
Niet open voor verdere reacties.

Thomassoft

Verenigingslid
Lid geworden
6 jul 2010
Berichten
130
Hoi allemaal,
Ik ben wat aanpassingen aan het doen in onze Access database waar wij ons medewerkers systeem in draaien. Ik heb zojuist een aantal queries aangemaakt om medewerkers boven een bepaalde leeftijd op ter vragen waaronder: DateDiff ("yyyy", [BirthDate], Date()) > 30. Graag zou ik een querie willen maken met alle personeel leden die vandaag jarig zijn. Met een Birthdate=today() ga ik er niet geraken omdat de birthdate natuurlijk de geboorte datum bevat in de database. Iemand een idee of ik in MS ACCESS een =today() kan doen zonder te kijken naar 'jaar' maar alleen te kunnen kijken naar 'date'and'month'.
Jesse
 
Today() is een niet-bestaande opdracht, dus daar gaat het zeker niet mee lukken :). Gelukkig heb je wél de functie Date() waarmee je wat kunt stoeien. Probeer dit maar eens:
Code:
Verjaardag: DateSerial(Year(Date());Month([Geboortedatum]);Day([Geboortedatum]))

En een functie waarmee je een leeftijd kunt berekenen op een willekeurige peildatum (of vandaag, als je niks invult):
Code:
Function cLeeftijd(Geboortedatum As Date, Optional Peildatum As Date) As Byte
    If Peildatum = 0 Then Peildatum = Date
    If Format(Geboortedatum, "mmdd") > Format(Peildatum, "mmdd") Then
        cLeeftijd = DateDiff("yyyy", Geboortedatum, Peildatum) - 1
    Else
        cLeeftijd = DateDiff("yyyy", Geboortedatum, Peildatum)
    End If
End Function
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan