Validar el número de cuenta bancaria

‘03/04/2005 ver 1.0b
‘Valida el número de cuenta
Function Validar_CCC(Cuenta As String) As Boolean

Dim DC, respuesta As String

DC = Mid(Cuenta, 9, 2)
Cuenta = Mid(Cuenta, 1, 8) & Mid(Cuenta, 11)

If DC = DigitoControl(Mid(Cuenta, 1, 8)) & DigitoControl(Mid(Cuenta, 9)) Then
Validar_CCC = True
Exit Function
Else
respuesta = MsgBox(”El número de cuenta es incorrecto, verifíquelo.”, vbOKOnly + vbCritical, “Ironda”)
Validar_CCC = False
Exit Function
End If

End Function

‘03/04/2005 ver 1.0b
‘Calcula los dígitos de control de la cuenta bancaria del cliente
Function DigitoControl(Serie As String) As String

Const Pesos = “06030709100508040201″
Dim l As Long, i As Integer

For i = 1 To Len(Serie)
l = l + (Mid(Serie, Len(Serie) – i + 1, 1) * Mid(Pesos, ((i – 1) * 2) + 1, 2))
Next

Select Case 11 – (l Mod 11)
Case 11
DigitoControl = 0
Case 10
DigitoControl = 1
Case Else
DigitoControl = 11 – (l Mod 11)
End Select

End Function