|
PostgiroValid
(XAPI2000)
Deklaration
Function PostgiroValid (ByVal S As String) As Boolean
Beskrivning
Testar om en sträng med ett postgironummer ä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 postgironummer. Strängen får innehålla
mellanslag och bindestreck.
Returvärden
Funktionen returnerar True om postgironumret är korrekt eller
False om postgironumret är felaktigt.
Se även
BankgiroValid |
Exempel
If PostgiroValid("644 66 28-7") Then
Label1 = "Postgironumret är korrekt!"
Else
Label1 = "Postgironumret är felaktigt!"
End If
|
