Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!
 Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda
 Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...
 Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata
 

Algoritm verificare CNP

- - - - -
  • Please log in to reply
No replies to this topic

#1
mihaieparu

mihaieparu

    Junior Member

  • Grup: Members
  • Posts: 210
  • Înscris: 20.03.2011
Mi-a trebuit acest algoritm pentru un program, si de aceea am decis sa il postez si pe site... Poate mai are altcineva nevoie de el... Va rog scuzati toate denumirile de tip cnccc, dar l-am facut in graba...
Atasat am refacut programul Age from CNP...
Dim cnval As Integer
		Dim cn0 As String = cn(0)
		Dim cn1 As String = cn(1)
		Dim cn2 As String = cn(2)
		Dim cn3 As String = cn(3)
		Dim cn4 As String = cn(4)
		Dim cn5 As String = cn(5)
		Dim cn6 As String = cn(6)
		Dim cn7 As String = cn(7)
		Dim cn8 As String = cn(8)
		Dim cn9 As String = cn(9)
		Dim cn10 As String = cn(10)
		Dim cn11 As String = cn(11)
		Dim cnval1 As Double = cn0 * 2
		Dim cnval2 As Double = cn1 * 7
		Dim cnval3 As Double = cn2 * 9
		Dim cnval4 As Double = cn3 * 1
		Dim cnval5 As Double = cn4 * 4
		Dim cnval6 As Double = cn5 * 6
		Dim cnval7 As Double = cn6 * 3
		Dim cnval8 As Double = cn7 * 5
		Dim cnval9 As Double = cn8 * 8
		Dim cnval10 As Double = cn9 * 2
		Dim cnval11 As Double = cn10 * 7
		Dim cnval12 As Double = cn11 * 9
		cnval = cnval1 + cnval2 + cnval3 + cnval4 + cnval5 + cnval6 + cnval7 + cnval8 + cnval9 + cnval10 + cnval11 + cnval12
		Dim cnpcn As Double = cnval / 11
		Dim cnpcon As Double = cnpcn
		Dim cnc As String = Format(cnpcon, "0.00")
		Dim cncon As String = cnc
		Dim cncont As Array = cncon.ToCharArray
		Dim cifra As String
		Dim cnpcontrolcifra As String = cncont(3) & cncont(4)
		Dim cncccc As String = cncont(3)
		Dim cnccc As Integer = cncccc
		If cnpcontrolcifra = "10" Then
			cifra = "1"
		Else
			If cncont(4) < "5" Then
				cifra = cnccc
			ElseIf cncont(4) >= "5" Then
				cifra = cnccc + 1
			End If
		End If
		If cn(12) <> cifra Then
			MsgBox("CNP-ul nu este valid! Cifra de control neverificatã!")
		ElseIf cn(12) = cifra Then
'Aici puneti ce vreti sa faca daca CNP-ul e valid...
End if

Attached Files



Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate