|
OrgnrValid
(XAPI2000)
Deklaration
Function OrgnrValid (ByVal S As String) As Boolean
Beskrivning
Testar om en sträng med ett organisationsnummer är korrekt.
Dels kontrolleras att antalet siffror är rätt och dels kontrolleras
att kontrollsiffran (sista siffran) stämmer. Parametern S
är en sträng som ska innehålla ett organisationsnummer. Strängen
får innehålla mellanslag och bindestreck. Organisationsnummer i
strängen bör vara lagrat enligt:
"123456-7890"
Returvärden
Funktionen returnerar True om organisationsnumret är korrekt
eller False om organisationsnumret är felaktigt.
Se även
OrgnrType, PnrValid |
Exempel
If OrgnrValid("123456-7890") Then
Label1 = "Organisationsnumret är korrekt!"
Else
Label1 = "Organisationsnumret är felaktigt!"
End If
|
