Cod: Selectaţi tot
C = MOD((N1*2+N2*7+N3*9+N4*1+N5*4+N6*6+N7*3+N8*5+N9*8+N10*2+N11*7+N12*9),11)
IF C=10
C=1
ENDIF
IF C=N13
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
Cod: Selectaţi tot
C = MOD((N1*2+N2*7+N3*9+N4*1+N5*4+N6*6+N7*3+N8*5+N9*8+N10*2+N11*7+N12*9),11)
IF C=10
C=1
ENDIF
IF C=N13
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
Cod: Selectaţi tot
Sub CNP()
Dim cnp_str As String
Dim i As Integer, c As Integer
Dim cnp_arr(13) As Integer
' aici despart cnp-ul in 13 cifre==================
cnp_str = "1234567890123"
For i = 1 To 13
cnp_arr(i) = Val(Mid(cnp_str, i, 1))
Next
' =================================================
c = (cnp_arr(1) * 2 + cnp_arr(2) * 7 + cnp_arr(3) * 9 + cnp_arr(4) * 1 + cnp_arr(5) * 4 + cnp_arr(6) * 6 + cnp_arr(7) * 3 + cnp_arr(8) * 5 + cnp_arr(9) * 8 + cnp_arr(10) * 2 + cnp_arr(11) * 7 + cnp_arr(12) * 9) Mod 11
If c = 10 Then c = 1
If c = cnp_arr(13) Then
MsgBox ("CNP corect")
Else
MsgBox ("CNP incorect")
End If
End Sub
Centrul de training si consultanta IT Learning activeaza de peste 15 ani pe piata serviciilor de instruire si certificare IT din Romania. |
Link-uri utile |
Categorii de cursuri |
Contact |
© 2019 IT Learning Business Intelligence School - Citeste termeni si conditii |