Beregne alder

noget i denne retning

FDato = DateDiff("YYYY", DateSerial(Microsoft.VisualBasic.Mid(Cpr, 5, 2), Microsoft.VisualBasic.Mid(Cpr, 3, 2), Microsoft.VisualBasic.Left(Cpr, 2)), Date)

er du nødt til at have "Microsoft.VisualBasic." foran , det bruger vi jo ikke i VBA, Jeg har ikke VB net, så jeg kan ikke teste.

Hej
I min opsætning er jeg nødt til at skrive : Microsoft.VisualBasic.

PERFEKT!
Tak for hjælpen. Svar lige så du kan få point!
vh Steen

et svar ;-))

Hvis man vil lave en mere ren .NET loesning saa:

    Function Age(s As String) As Integer
        Dim birthday As DateTime = DateTime.ParseExact(s.Substring(0, 6), "ddMMyy", CultureInfo.InvariantCulture)
        Dim today As DateTime = DateTime.Now
        If now.Month > birthday.Month Or (now.Month = birthday.Month And now.Day >= Birthday.Day) Then
            Return today.Year - birthday.Year
        Else
            Return today.Year - birthday.Year - 1
        End If
    End Function

OK ....og hvorledes skal den funktion bruges?

FDato = Age(cpr)

Der er vist ioevrigt ingen grund til a FDato er Long.

Det ser spændende ud men jeg får en fejl ved : CultureInfo......Not declared!!!

Du skal importere System.Globalization

Øh jeg prøvede på en person født i 1923 hvilket gav en alder på -16

Interessant.

Alle under 30 opfattes som 20xx ikke 19xx.

Den er heldigvis nem at fixe:

    Function Age(s As String) As Integer
        Dim birthday As DateTime = DateTime.ParseExact(s.Substring(0, 6), "ddMMyy", CultureInfo.InvariantCulture)
        Dim today As DateTime = DateTime.Now
        Dim n As Integer
        If now.Month > birthday.Month Or (now.Month = birthday.Month And now.Day >= Birthday.Day) Then
            n = today.Year - birthday.Year
        Else
            n = today.Year - birthday.Year - 1
        End If
        n = (n + 100) Mod 100
        Return n
    End Function

Det var dejligt - tak for det. Hvda sker der hvis personen er > 100 år ??

Saa skal man til at kigge paa de 4 sidste cifre.

Man kan ikke se paa 98 om det er 1898 eller 1998.

OK - tak for hjælpen :-)