Funktion som beregner alder ud fra CPR nr.

Function age(cpr6 As String) As Integer
    Dim yy, mm, dd, res As Integer
    yy = CInt(Mid(cpr6, 5, 2))
    mm = CInt(Mid(cpr6, 3, 2))
    dd = CInt(Mid(cpr6, 1, 2))
    res = (DatePart("yyyy", Now()) - yy) Mod 100
    If (DatePart("m", Now()) < mm) Or ((DatePart("m", Now()) = mm) And (DatePart("d", Now()) < dd)) Then res = res - 1
    age = res
End Function

Det kan sikkert laves pænere, men det var lige hvad jeg kunne komme på.

Tak arne, jeg prøver lige at lægger det i excel i morgen. :). Så giver jeg dig svar.

arne_v bare læg svar :).

kommer her

arne_v  - hvis du stadig læser her, og er interesseret;

Jeg smed:
If Len(cpr) = 5 Then
    cpr = "0" & cpr
End If

... på, fordi den ville reducere "041184" til 41184

Ja + de mid kald forudsaetter ligesom at der er 6 tegn.

Hvis du har cpr som integer og ikke som string kunne man ogsaa bruge ' og mod til
at beregne yy, mm og dd.