Personnummer check

http://script.webforum.nu/wf/Forum1/HTML/000056.html

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

function isPersonNumber(ByVal PersonNumber)
	Dim i,intFact,strNums,intSum 
	PersonNumber=Replace(PersonNumber,"-","")
	isPersonNumber=False
	if isNumeric(PersonNumber) and len(PersonNumber)=10 then
		if not isDate("20" & left(PersonNumber,2) & "-" & mid(PersonNumber,3,2) & "-" & mid(PersonNumber,5,2)) then
			Exit Function
		end if
		for i=1 to 9
			if i mod 2=0 then intFact=1 else intFact=2
			strNums=strNums & cint(mid(PersonNumber,i,1)) * intFact
		next
		for i=1 to len(strNums)
			intSum=intSum + cint(mid(strNums,i,1))
		next
		isPersonNumber=(right(cstr(10-cint(right(intSum,1))),1)=right(PersonNumber,1))
	end if
end function

varför får jag mitt personnummer till false då jag använder mig av denna funktionen? skriver IsPersonNumber(xxxx-xx-xx-xxxx), har även provat med IsPersonNumber("xxxx-xx-xx-xxxx") men får det även till false där med.
någon som kan hjälpa till?

tack på förhand!

När skrevfs ett personnummer på det sättet?

xxxxxx-xxxx

Är det inte det som gäller?

Iofs lär väl funktionen fungera bara du fimpar 19 i årtalet med ditt sätt att skriva.

japp, det fungerade enligt xxxxxx-xxxx, men om jag vill ha med även 19 i början.....hur gör jag om funktionen då för att den skall fungera?

born = "19190614-7801"
c = IsPersonNumber(mid(born,3))

Percy skrev:

japp, det fungerade enligt xxxxxx-xxxx, men om jag vill ha med även 19 i början.....hur gör jag om funktionen då för att den skall fungera?

måste bara få fråga varför du vill ha med det? i ett personnummer har man inte med århundradet

När jag loggar in på SEBs internetkontor måste jag ange mitt personnummer med tolv siffror. Det är galet, men ibland måste man skriva det på det sättet.

Jag tycker att det är rätt att tillåta tolvsiffriga personnummer, det är mycket bättre än att kasta upp ett felmeddelande som säger att man skrivit fel personnummer. Man skall inte tvinga folk att skriva tiosiffrigt, eftersom det alltid kommer finnas folk som skriver fel.

mvh,