Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Austria - confiscarea masinii pen...

Licenta Windows 10

TRUMP: Un vis american -2017
 Ozempic

Sectii ale politiei chineze in Ro...

Viteza net Wifi de 5 ori mai mica...

Alegere cablu tv
 2l combustibil plafonat in Ungaria?

Recomandare TV Oled-Led

Rabla pentru electrocasnice si pr...

The SKA Project(Square Kilometre ...
 Sfat achiziție bicicleta

Samsung Galaxy Tab S6 - Chrome nu...

Intrebare despre pizza, marime si...

Recomandare televizor
 

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

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

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