Generering af pseudo cpr.numre. (5000 stk)

Se om det her kan bruges: http://www.fuglevig.dk/Software/VB/cpr.htm

Hej ferdinand,
Det er ikke valideringen, men genereringen jeg er ude efter.
Ellers tak

allanherskind > Du bliver nød til at tjekke om det er et cprnummer..

Private Sub Command1_Click()
Dim i As Long, j As Long
Dim strCpr As String
Const strStart As String = "1706" '<- de første 4 cifre
  For i = 0 To 9999
    For j = 0 To 99
    strCpr = strStart & Right$("00" & j, 2) _
                    & Right$("0000" & i, 4)
      If check_cpr(strCpr) Then
        List1.AddItem strCpr
      End If
    Next
  Next
End Sub

Function check_cpr(ByVal Cprnr) As Boolean
Dim Tal, i, Sum, Rest, Kontroltal, Resultat As Boolean
Cprnr = Cprnr & " "
If Val(Cprnr) = 0 Or Len(Cprnr) < 10 Then
    Resultat = False
Else
    Tal = "432765432"
    For i = 1 To 9
          Sum = Sum + Val(Mid(Cprnr, i, 1)) * Val(Mid(Tal, i, 1))
    Next
    Rest = Sum Mod 11
    Kontroltal = 11 - Rest
    If Rest = 0 Then Kontroltal = 0
    Resultat = False
    If Kontroltal = 10 Then Resultat = False
    If Kontroltal = Val(Mid(Cprnr, 10)) Then Resultat = True
End If
check_cpr = Resultat
End Function

Hej sjh,
Beklager jeg ikke fik afsluttet.
Jeg fik aldrig brug for løsningen, da vi fandt på noget andet.
Har nu prøvet løsningen og den er OK.
Takker på bagkandt