Encontré algo y lo implementé en mi código, os lo dejo por si a alguien le sirve:
Código:
'CALCULA DIGITOS CONTROS CCC
Function CalculaCCC(entidad As String, oficina As String, Cuenta As String) As String
Dim i As Integer
Dim j As Currency
Dim dig1 As String
Dim dig2 As String
If entidad = "" Then entidad = "0"
If oficina = "" Then oficina = "0"
If Cuenta = "" Then Cuenta = "0"
i = CInt(entidad)
entidad = Format$(i, "0000")
i = CInt(oficina)
oficina = Format$(i, "0000")
j = CCur(Cuenta)
Cuenta = Format$(j, "0000000000")
dig1 = chkpesos(entidad + oficina)
dig2 = chkpesos(Cuenta)
CalculaCCC = dig1 + dig2
End Function
Function chkpesos(cadena As String) As String
ReDim pesos(10) As Integer
Dim i As Integer
Dim j As Integer
Dim Total As Currency
pesos(1) = 1: pesos(2) = 2: pesos(3) = 4: pesos(4) = 8
pesos(5) = 5: pesos(6) = 10: pesos(7) = 9: pesos(8) = 7
pesos(9) = 3: pesos(10) = 6
Total = 0
j = 10
For i = Len(cadena) To 1 Step -1
Total = Total + (CInt(Mid$(cadena, i, 1)) * pesos(j))
j = j - 1
Next i
i = 11 - (Total Mod 11)
If i = 10 Then
i = 1
Else
If i = 11 Then
i = 0
End If
End If
chkpesos = CStr(i)
End Function
Código:
DigitoControl = CalculaCCC(Txt_NCuentaBanco1.Text, Txt_NCuentaBanco2.Text, Txt_NCuentaBanco4.Text)
MsgBox (DigitoControl)
Hasta luego!!!
Ah!! Lo necesitaba para España...
