"Philips" <a@b.c> wrote in message
news:429179d0$0$79461$14726298@news.sunsite.dk...
> Kender I til en funktion, som kan validere danske CVR numre?
Nu har jeg skrevet en baseret på en mail jeg fik fra CVR:
function Check_CVR ($CVR)
{
if ($CVR == False) return;
$Sum += substr ($CVR, $a++, 1) * 2;
$Sum += substr ($CVR, $a++, 1) * 7;
$Sum += substr ($CVR, $a++, 1) * 6;
$Sum += substr ($CVR, $a++, 1) * 5;
$Sum += substr ($CVR, $a++, 1) * 4;
$Sum += substr ($CVR, $a++, 1) * 3;
$Sum += substr ($CVR, $a++, 1) * 2;
$Wholes = floor (($Sum / 11));
$Remainder = ($Sum - ($Wholes * 11));
$Last_Digit = ($Remainder) ? (11 - $Remainder) : 0;
$CVR_Correct = ($Last_Digit == substr ($CVR, 7, 1)) ? True : False;
return $CVR_Correct;
}
Hvordan ville I gøre den smukkere?
Mailen er her:
Modulus 11
Alle CVR-numre overholder det såkaldte modulus 11-check. Det betyder at mens
de første 7 cifre er genereret fortløbende (stigende), bestemmes det 8.
ciffer ud fra de første syv via en "modulus 11-beregning".
Modulus 11-ckecket bruges hyppigt til identifikationsnumre, fx også til
CPR-numrene. Det giver mulighed for at checke om nummeret er falsk.
Check efter modulus 11
Princippet i checket kan forklares ved hjælp af et eksempel. CVR-nummeret
13-74-81-36 er opbygget på følgende måde, hvor "vægtene" er vedtaget på
forhånd:
Syv første cifre i CVR-nummeret
1
3
7
4
8
1
3
Vægt
2
7
6
5
4
3
2
Cifferet gange vægt
2
21
42
20
32
3
6
Summen af disse produkter er 126. Divideres 126 med 11, giver det 11 med en
rest på 5 (11*11 + 5 = 126).
Kontrolcifret beregnes ved at trække resten 5 fra 11, hvilket giver 6. Dette
ciffer er det ottende ciffer og kontrolcifret i CVR-nummeret.
Hvis resten bliver 1 skulle kontrolcifret efter metoden være 10. Da
2-cifrede kontroltal ikke kan benyttes, er det pågældende CVR-nr. ikke et
gyldigt/eksisterende CVR-nr.
P