Check af CPRnummer

Der skal mere til at tjekke et cprnr. Du kan finde en tjek funktion her:
http://www.fuglevig.dk/Software/VB/cpr.htm

Se en udførlig beskrivelse her:
http://www.cpr.dk/Index/dokumenter.asp?o=11&n=0&h=11&t=1&d=396&s=4

VB løsningen er ret kluntet programmeret - det kan gøres kortere og pænere...

Function check_cpr(ByVal Cprnr) As Boolean

Dim Tal, I, Sum As Integer

If (Len(Cprnr) < 10) Or (Not IsNumeric(CPR)) Then
    check_cpr = False
Else
    Tal = "4327654321"
    For I = 1 To 10
          Sum = Sum + Val(Mid(Cprnr, I, 1)) * Val(Mid(Tal, I, 1))
    Next
    check_cpr = (Sum Mod 11 = 0)
   
End If
End Function

Jeg er bestemt ikke VB-ekspert, men skal der ikke tages højde, for de cpr.nr., der starter med "0". Måske med en ændring i denne stil?

Function check_cpr(ByVal Cprnr) As Boolean

Dim Tal, I, Sum As Integer

If (Len(Cprnr) < 10) Then
Cprnr = "0" + CStr(Cprnr)
End If

If (Not IsNumeric(CPR)) Then
    check_cpr = FalseElse
    Tal = "4327654321"
    For I = 1 To 10
          Sum = Sum + Val(Mid(Cprnr, I, 1)) * Val(Mid(Tal, I, 1))
    Next
    check_cpr = (Sum Mod 11 = 0)
   
End If
End Function

På denne fremragende hjemmeside http://www.nyholm.dk/makeiteasy/Home.asp?ContentID=32 er det en funktion som kan downloades, du evt. prøve den

Tak for hjælpen!!