Validering af cpr-nummer

Et eks:



Function CPROK(Streng)
  Dim Nummer, Sum
  Nummer = Trim(Replace(Streng, "-", ""))
  If Len(Nummer) <> 10 Or Not IsNumeric(CStr(Nummer)) Then Exit Function
  Check = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1)
  Sum = 0
  For i = 0 To 9
      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i)
  Next
  If Sum Mod 11 = 0 Then CPROK = True
End Function

If CPROK("250342-1247") Then
' Gyldigt
Else
' Ugyldigt
End If

Jeg prøver det lige...

Jeg får denne fejl:

Invalid procedure call or argument: 'Mid'

arh prøv lige at rette:


      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i)


Til dette da en streng starter fra 1 men et array fra 0 :):

      Sum = Sum + CInt(Mid(Nummer, i+1, 1)) * Check(i)

Super!

Tak for hjælpen...

Du bør være opmærksom på at modulus-11 tjekket forsvinder inden alt for mange år:

http://www.cpr.dk/Index/dokumenter.asp?o=2&n=0&h=2&d=647&s=4