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 |
Algoritm verificare CNP
Last Updated: Jun 22 2011 09:03, Started by
mihaieparu
, Jun 22 2011 09:03
·
0
#1
Posted 22 June 2011 - 09:03
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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users