Aldersfordeling

Når du har fødselsåret som 2-cifret, hvordan skal Access så vide i hvilket århundrede medlemmet er født?

Denne gælder for formatet yyy-mm-dd. Indsæt koden i et modul ag navngiv det Alderberegning. Kald modulet fra en forespørgsel med denne Udtryk1: Alderberegning([DIT FELT MED FØDSELSDAG])

Modulet:

If DateSerial(Year(Date), Month(Dato), Day(Dato)) > Date Then
Alderberegning = DateDiff("yyyy", Dato, Date) - 1
Else
Alderberegning = DateDiff("yyyy", Dato, Date)
End If

Og velkommen til eksperten.dk:

http://www.eksperten.dk/faq

Hej Mugs

Sorry .... formatet er DD/MM/ÅÅÅÅ

Mange hilsner
Karsten

Så skulle det jo nok kunne lade sig gøre.

Jeg skal lige pointere denne:

"Indsæt koden i et modul ag navngiv det Alderberegning"

Det er selve funktionen der skal hedde Alderberegning. Modulets navn er ligegyldig.

Jeg har lige afprøvet med dit format, og den beregner alderen korrekt.

Tak for dit hurtige svar, Mugs
Jeg tester det fluks ...

Hej Mugs

Er lidt mongol, når det drejer sig om det lidt mere avancerede Access :-(

Kan du ikke sende mig en lille testdb på min mail: karsten@kontorchefen.dk

På forhånd 1000 tak
Karsten

Sendt

Hej Mugs

1000 tak for hjælpen ... og din hurtige respons.

Mange venlige hilsner
Karsten

Tak for point.