Beregn alderen på en mand

hmmm er det kun mænds alder der skal udregnes og ikke kvinders?

Tænk sig hvis - hvis nu kvinderne finder ud af at man er for gammel  :-))

øøøh ok

Hvis du kan vente til imorgen formiddag skal du få svaret...

kig på denne side eller skriv din mail-adresse så poster jeg funktionen imorgen.

http://msdn.microsoft.com/library/partbook/vbahand/html/calculatingage.htm

Prøv denne:

Dim Cpr, Dag As Integer, Måned As Integer, År As Integer
    Cpr = "120568-1234"
    If Not Len(Cpr) > 6 Then
        MsgBox "Cpr nummeret er ikke gyldigt"
        Exit Sub
    End If
    Dag = Mid(Cpr, 1, 2)
    Måned = Mid(Cpr, 3, 2)
    År = Mid(Cpr, 5, 2)
    Dim Dato As Date
    Dato = Dag & Måned & År
    MsgBox "Du er " & Format(Now, "m") - Format(Dato, "m") & " år!"

Undskyld det er selvfølgelig:
MsgBox "Du er " & Format(Now, "yy") - Format(Dato, "yy") & " år!"

eller
MsgBox "Du er " & year(Now) - year(Dato) & " år!"

Ups da osse jeg havde ikke testet den, men denne er, jeg havde glemt bindestreg imellem dag, måned og år:
>>> Dato = Dag & "-" & Måned & "-" & År <<<

Private Sub Kommandoknap0_Click()
    Dim Cpr, Dag As String, Måned As String, År As String
    Cpr = "120568-1234"
    If Not Len(Cpr) > 6 Then
        MsgBox "Cpr nummeret er ikke gyldigt"
        Exit Sub
    End If
    Dag = Mid(Cpr, 1, 2)
    Måned = Mid(Cpr, 3, 2)
    År = Mid(Cpr, 5, 2)
    Stop
    Dim Dato As Date
    Dato = Dag & "-" & Måned & "-" & År
    MsgBox "Du er " & Year(Now) - Year(Dato) & " år!"
End Sub

Jeg er træt nu og går i seng!
&#124;&#124;^0

Det er egentlig mere nøjagtig med:
msgbox "Du er " & year(now - dato) & " år!"