Ciao a tutti, ho una urgenza...
devo fare una funzione che controlli la veridicità di un conco corrente inserito, mi hanno passato l'algoritmo in VB e devo convertirlo in C#...solo che non sono ancora molto pratico del c#, quindi vi chiedo se per favore riuscite a convertirmi questo codice vb in c#.
Grazie e spero in una mano
------------------------------------------------------------
Private Function CeckNumCC(Numero_CC As String) As Boolean
Dim Num_CC As String
Dim Tot_Disp As Integer
Dim Appo_Molt As Integer
Dim Posi As Integer
If Left(Trim(Numero_CC), 3) = "30/" Then
Num_CC = Mid(Trim(Numero_CC), 4)
Else
Num_CC = Trim(Numero_CC)
End If
'verifica lunghezza numero conto
If Len(Trim(Num_CC)) <> 4 And Len(Trim(Num_CC)) <> 6 And Len(Trim(Num_CC)) <> 8 Then GoTo Err_CeckNumCC
'GESTIONE CONTROCODICE
Tot_Disp = 0
Posi = 1
For Posi = 1 To Len(Trim(Num_CC)) - 1
Appo_Molt = Val(Mid$(Num_CC, Posi, 1))
If Posi Mod 2 <> 0 Then
'cifre a posizione dispari
Appo_Molt = Appo_Molt * 2
If Appo_Molt > 9 Then
Appo_Molt = Appo_Molt - 9
End If
End If
'somma cifre posizione pari alle cifre,
'con posizione dispari, precedentemente elaborate
Tot_Disp = Tot_Disp + Appo_Molt
Next
Tot_Disp = Tot_Disp Mod 10
'controcodice calcolato
If Tot_Disp <> 0 Then
Tot_Disp = 10 - Tot_Disp
End If
Posi = Len(Trim(Num_CC))
'controcodice digitato
Appo_Molt = Val(Mid$(Num_CC, Posi, 1))
If (Tot_Disp <> Appo_Molt) Then GoTo Err_CeckNumCC
CeckNumCC = TestContoEsistente(Num_CC)
Exit Function
Err_CeckNumCC:
ObjSTATUS.message = "Numero Conto Errato"
ObjSTATUS.Abilita_Tasti = 4 'tasto riprova
Ritorno_Status = ObjSTATUS.Attendi_Risposta
CeckNumCC = False
End Function
------------------------------------------------------------
Rispondi quotando
