---
title: "kontrollera personnummer som är född 06"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/145932-kontrollera-personnummer-som-är-född-06"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "voigtann1"
published: "2006-04-24T08:33:17.000Z"
updated: "2006-04-24T08:39:45.000Z"
replies: 1
views: 513
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/dotnet/145932-kontrollera-personnummer-som-är-född-06"
---

# kontrollera personnummer som är född 06

## #1 — voigtann1, 2006-04-24T08:33Z

Jag har problem med att  när jag ska kontrollera en person som är född exemelvis 1906 med denna personnummers kontroll.

```
    Public Function isDigit(ByVal strNumber As String) As Boolean
        Dim regEx As New Regex("^(19|20)?(\d{6})-?(\d{4})$")
        If regEx.IsMatch(strNumber) Then
            strNumber = regEx.Replace(strNumber, "$2$3")
            Dim lngSum As Integer = 0
            Dim lngpos, lngTemp As Long

            For lngpos = 1 To 10
                lngTemp = CLng(Mid(strNumber, lngpos, 1)) * ((lngpos Mod 2) + 1)
                If lngTemp > 9 Then lngTemp = lngTemp - 9
                lngSum = lngSum + lngTemp
            Next
            Return (lngSum Mod 10) = 0
        Else
            Return False
        End If
    End Function
```

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

## #2 — Lasp, 2006-04-24T08:39Z

Du får väl ordna en exklusiv fil för dinna 100 plus åringar.
Många företag har ju numera fält fär personnummer med sekelsiffra.
Borde inta få hetea personnummer då!

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/145932-kontrollera-personnummer-som-är-född-06