|
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
|
