|
CnrValid
(XAPI2000)
Deklaration
Function CnrValid (ByVal S As String) As Boolean
Beskrivning
En generell funktion som testar om en sträng med en sifferserie
har ett giltigt kontrollnummer sist. Parametern S innehåller
sifferserien som ska testas.
Returvärden
Funktionen returnerar True om numret är korrekt eller
False om numret är felaktigt.
Se även
CalcCnr, PnrValid,
OrgnrValid,
BankgiroValid,
PostgiroValid |
Exempel
If CnrValid("1234567890") Then
Label1 = "Sista kontrollsiffran är korrekt!"
Else
Label1 = "Sista kontrollsiffran är felaktigt!"
End If
|
