Beregne alder i access 97

Jeg skulle engang bruge det til nogen komponister (som i vid udstrækning var afdøde), men har tilpasset funktionen lidt, da jeg går ud fra dine medlemmer er nulevende :0)

Function Alder(dFødt As Date) As Integer

Alder = DateDiff("yyyy", dFødt, Now())
If DateSerial(Year(Now()), Month(dFødt), Day(dFødt)) > Now() Then
    Alder = Alder - 1
End If

End Function

Alder: (Year(Date())-Year([FDag])) & "år  og " & ((12-Month([FDag]))+Month(Date())-Month([FDag])) & " måneder"

FDag = fødselsdag

direkte i en forespørgsel

min giver godt nok  - i måneder, hvis fødselsdagen ikke er indtruffet endnu

Indrømmet: Jeg er IKKE nogen ørn til dette her, men når jeg laver en kopi af de forslag I har været så rare at give mig, så meldes der "ugyldig syntaks". Hvor går det galt?

Alder: IIf(Month([FDag])<=Month(Date());(Year(Date())-Year([FDag])) & "år og " & Month(Date())-Month([FDag]) & "måneder";(Year(Date())-Year([FDag])-1) & "år  og " & 12-((Month([FDag]))-Month(Date())) & "måneder")


Ret FDag til navnet på det felt der indeholder fødselsdagen

sæt den så ind i et felt i din forespørgsel der bygger på tabellen

Mit forslag skal indsættes i et modul. Dereften kan funktionen kaldes f.eks. fra en forespørgsel eller direkte i et felt i en formular. Syntaksen er:

Alder(#01-01-1991#)

eller

Alder([Fødselsdag])

hvor Fødselsdag er navnet på det felt, der indeholder fødselsdatoen.

Tak for hjælpen

Hvem af os skal smide et svar.

Det er kabbak

et svar ;-))

marker mit navn og tryk accepter