validering af dansk cpr nummer

Function check_cpr(ByVal Cprnr)
Dim Tal, I, Sum, Rest, Kontroltal, Resultat
Cprnr = Cprnr & " "
If Val(Cprnr) = 0 Or Len(Cprnr) < 10 Then
    Resultat = "Mangler data"
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 = "Fejl"
    If Kontroltal = 10 Then Resultat = "Dato og/eller Løbenummerfejl"
    If Kontroltal = Val(Mid(Cprnr, 10)) Then Resultat = "OK"
End If
check_cpr = Resultat
End Function


?? Måske... Er ikk sikker...

Prøv at se om der er noget på
http://www.regexplib.com/

>>a-torsten

-- din beregning er rigtig, men ville det ikke være nemmere at bruge:

    Tal = "4327654321"
    For I = 1 To 10
          Sum = Sum + Val(Mid(Cprnr, I, 1)) * Val(Mid(Tal, I, 1))
    Next
    If Som Mod 11 <> 0 Then "CPR-nummer forkert"

Jow.. Det kan du da egentlig have ret i..

Mangler kontrol af datoen, størrelsen af 7 ciffer og midlertidigt tildelte cpr-numre.

Her findes den totale dokumentation: http://www.cpr.dk/imagesupload/dokument/Fremtidig%20personnummerløsning.doc

jeg er ved at omskrive til c#, men hvad er Mid ??

-- jeg ville gætte på charAt , som det bruges her (udfra javascript-syntaks)

Sådan her kan du genskabe mid i c#:
public static string Mid(string MyString,int startIndex, int length)
{
    return MyString.Substring(startIndex, length);
}
public static string Mid(string MyString,int startIndex)
{
    return MyString.Substring(startIndex);
}

jeps det spiller ;-)
her kommer min c# kode:

string Cprnr= CPRTextBox.Text;
string Tal = "4327654321";
double Sum=0;
 
if (Cprnr.Length != 10){
  args.IsValid = false;
}
else{
  for(int i=0; i<=9; i++){
  Sum += (double.Parse(Cprnr.Substring(i,1))*double.Parse(Tal.Substring(i,1)));
    if(Sum % 11 == 0){
    args.IsValid = true;
    }
  }//slut for
args.IsValid = false;
}

jeg vil gerne have svar fra:

a-torsten
roenving
twm

så kan i dele points da i alle har hjulpet på rette vej...

nogen vil nok skrive koden anderledes *g*
den kan vist godt optimeres lidt ;-)

øv jeg var vist lidt for hurtig....
der er en lille bug...
vender tilbage :0

private Boolean validateCpr(String cpr)
{
    if(cpr.Length == 11)
    {
        cpr = cpr.Substring(0,6) + cpr.Substring(7,4);
        string N = "432765432";
        int Sum = 0;
        int Remainder = 0;
        int ControlNo = 0;
        for(int x = 0; x < 9; x++)
        {
            Sum += Convert.ToInt32(cpr.Substring(x,1)) * Convert.ToInt32(N.Substring(x,1));
        }
        Remainder = Sum % 11;
        ControlNo = 11 - Remainder;
        if(Remainder == 0)
        {
            ControlNo = 0;
        }
        if(ControlNo == Convert.ToInt32(cpr.Substring(9)))
        {
            return true;
        }
        else
        {
            return false;
        }
    }
    else
    {
        return false;
    }
}

oki... lukker ;-)