CalcCnr (XAPI2000)
| Deklaration Function CalcCnr (ByVal S As String) As Integer Beskrivning Beräknar och returnerar kontrollsiffran i en sträng med siffror enligt den metod som används för person-, bank- och postgironummer. Parametern S specificerar en sifferserie utan kontrollnummer. Strängen får innehålla bindestreck. Returvärden Funktionen returnerar ett giltig kontrollnummer för sifferserien som finns i parametern S. Se även CnrValid |
Exempel
Nedanstående exempel beräknar kontrollsiffran i en sträng som innehåller siffrorna "670710-101".
Dim I As Integer
Dim NrStr As String
NrStr = "670710-101"
I = CalcCnr(NrStr) ' Ger 7
