|
PnrValid
(XAPI2000)
Deklaration
Function PnrValid (ByVal S As String) As Boolean
Beskrivning
Testar om en sträng med ett personnummer är korrekt. Dels kontrolleras
att antalet siffror är rätt och dels kontrolleras att kontrollsiffran
(sista siffran) stämmer. Funktionen kontrollerar även att datumet
i födelsetalet är giltigt. Parametern S är en sträng som
ska innehålla ett personnummer. Strängen får innehålla mellanslag
och bindestreck. Personnumret i strängen bör vara lagrat enligt:
"123456-7890"
Ska även samordningsnummer hanteras bör funktionen
PnrValidX användas istället.
Returvärden
Funktionen returnerar True om personnumret är korrekt eller
False om personnumret är felaktigt.
Se även
PnrValidX,
OrgnrValid |
Exempel
If PnrValid("123456-7890") Then
Label1 = "Personnumret är korrekt!"
Else
Label1 = "Personnumret är felaktigt!"
End If
|
