kontrollsiffra i personnummer

1 svar · 327 visningar · startad av LR^evil.sid 19 okt. 2002

LR^evil.sidMedlem sedan maj 2002560 inlägg

Frågan19 okt. 2002 21:06#1

Hej, jag har en funktion som ska kontrollera om personnummret är korrekt.
Jag har kommit så här långt MEN den räknar fel. Varför?

[red]<%
	function chkPnr(pNr)
		for i = 1 to 9
			if i mod 2 = 0 then multiplyer = 1 else multiplyer = 2
			total = total & mid ( pNr, i, 1 ) * multiplyer
		next
		for i = 1 to len ( total )
			chkSum = chkSum + mid ( total, i, 1 )
		next
		chkPnr = 10 - cint ( right ( chkSum, 1 ) )
	end function
%>[/red]

LR^evil.sidMedlem sedan maj 2002560 inlägg

19 okt. 2002 21:42#2

[red]<%
	function chkPnr(pNr)
		for i = 1 to 9
			if i mod 2 = 0 then multiplyer = 1 else multiplyer = 2
			total = total & mid ( pNr, i, 1 ) * multiplyer
		next
		for i = 1 to len ( total )
			chkSum = [blue][b]int ( chkSum )[/b][/blue] + mid ( [blue][b]int ( total )[/b][/blue], i, 1 )
		next
		chkPnr = 10 - cint ( right ( chkSum, 1 ) )
	end function
%>[/red]

nu fungerar det : )