---
title: "Personnummervalidering i VB.NET"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/137344-personnummervalidering-i-vb-net"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Kromp"
published: "2005-11-10T07:31:14.000Z"
updated: "2005-11-10T07:31:14.000Z"
replies: 0
views: 392
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/137344-personnummervalidering-i-vb-net"
---

# Personnummervalidering i VB.NET

## #1 — Kromp, 2005-11-10T07:31Z

Hej! Jag har försökt omarbeta javascript-funktionen [här](http://www.webforum.nu/showthread.php?s=&threadid=42712) till VB.NET men det går inte bra. Kan någon hjälpa till och se vad som blivit fel?

Nr kommer in som "ååååmmddkkkk", Kon som "M" eller "K".

```
Private Function ValideraPersonnr(ByVal Nr As String, ByVal Kon As String) As Boolean
        Dim Personnr As String = Nr.Substring(2, 10)
Dim CheckSum As Int32 = 0
        Dim nn As Int32 = 0

        For n As Int32 = 0 To Personnr.Length - 1
            nn = nn + ((((n + 1) Mod 2) + 1) * CInt(Personnr.Substring(n, 1)))
        Next

        For n As Int32 = 0 To nn.ToString.Length - 1
            CheckSum = (CheckSum + CInt(nn.ToString.Substring(n, 1))) * 1
        Next

        If (CheckSum Mod 10) = 0 Then
            If (CInt(Nr.Substring(8, 1)) Mod 2) = 0 And Kon = "K" Then
                Return True
            ElseIf (CInt(Nr.Substring(8, 1)) Mod 2) = 1 And Kon = "M" Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
End Function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/137344-personnummervalidering-i-vb-net