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