---
title: "Personnummer check"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13176-personnummer-check"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cantona"
published: "2001-12-13T19:45:00.000Z"
updated: "2002-12-03T20:56:02.000Z"
replies: 9
views: 564
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13176-personnummer-check"
---

# Personnummer check

## #1 — Cantona, 2001-12-13T19:45Z

Någon som har en fungerade funktion för att kontrollera personnummer?

Permalänk: https://www.webforum.nu/p/13176

## #2 — Pace, 2001-12-13T21:34Z

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

Permalänk: https://www.webforum.nu/p/300726

## #3 — emission, 2001-12-13T21:56Z

```
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
```

Permalänk: https://www.webforum.nu/p/300727

## #4 — Percy, 2002-12-03T19:03Z

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!

Permalänk: https://www.webforum.nu/p/875514

## #5 — solbulle, 2002-12-03T19:07Z

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

xxxxxx-xxxx

Är det inte det som gäller?

Permalänk: https://www.webforum.nu/p/875516

## #6 — solbulle, 2002-12-03T19:08Z

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

Permalänk: https://www.webforum.nu/p/875518

## #7 — Percy, 2002-12-03T19:20Z

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?

Permalänk: https://www.webforum.nu/p/875527

## #8 — LarsG, 2002-12-03T19:27Z

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

Permalänk: https://www.webforum.nu/p/875532

## #9 — Poffe, 2002-12-03T20:01Z

> **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

Permalänk: https://www.webforum.nu/p/875559

## #10 — @nders, 2002-12-03T20:56Z

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,

Permalänk: https://www.webforum.nu/p/875599

---

Tråden på webben: https://www.webforum.nu/amne/asp/13176-personnummer-check