Digito de control de una cuenta bancaria

[Hoyos]

¿Alguien sabe calcular el Digito de Control (DC)de una cuenta bancaria?

BANCO SUCURSAL DC     Cuenta

0000        0000          XX    0000000000

--
------------------------------------------------------------
José Luis Hoyos García
             Portel Consulting S.L.
             jlh...@jccm.es
             jlh...@oze.com
------------------------------------------------------------

[Alex Martínez]

Public Function CalcularDC(Banco, Cuenta)
Dim Pesos As Variant, n, S1, S2, R1, R2 As Integer
Pesos = Array(6, 3, 7, 9, 10, 5, 8, 4, 2, 1)
S1 = 0
S2 = 0
For n = 0 To 7
S1 = S1 + Val(Mid(Banco, 8 - n, 1)) * Pesos(n)
Next
For n = 0 To 9
S2 = S2 + Val(Mid(Cuenta, 10 - n, 1)) * Pesos(n)
Next
R1 = 11 - S1 Mod 11
R2 = 11 - S2 Mod 11
R1 = IIf(R1 > 9, 1 - R1 Mod 10, R1)
R2 = IIf(R2 > 9, 1 - R2 Mod 10, R2)
CalcularDC = R1 & R2
End Function

NOTA: Banco es la suma de Entidad y Oficina
--

Saludos,
Alex

"Hoyos" <jlh...@jccm.es> wrote in message news:1060166665.75032@proxy4...

[Alex Martínez]

Copié el código tal cual de un mensaje antiguo del grupo y ahora veo un
pequeño error de concepto (que no hace que el programa falle, pero que
encuentro "feo")

> Dim Pesos As Variant, n, S1, S2, R1, R2 As Integer

Mejor
Dim Pesos As Variant, n As Integer, S1 As Integer, S2 As Integer, R1 As
Integer, R2 As Integer

--

Saludos,
Alex

"Alex Martínez" <al...@comb.es> wrote in message
news:bgqn3g$qr5tq$1...@ID-69677.news.uni-berlin.de...

[zzz]

Creo que en la web del guille habia una rutina....si no la encuentras te la puedo enviar desde casa en cuanto llegue...me lo confirmas-...

 

Un saludo

 

Jesus Daryanani

 

"Hoyos" <jlh...@jccm.es> escribió en el mensaje news:1060166665.75032@proxy4...

[Mezzoforte]

Independientemente de lo que te han dicho ten en cuenta una cosa:

El DC no debes calcularlo ni corregirlo tu si, por ejemplo, un cliente no te
lo facilita o es erroneo. El DC sirve para chequear que no hay errores en el
conjunto de la cuenta cliente (CCC), por lo que tu calculo del DC se debe
limitar a que coincida con el que el cliente facilita. Incluso si no tienes
el DC y necesitas, por ejemplo, enviar a un banco una remesa de recibos
(norma19) o similar, en lugar de calcular el DC puedes enviar dos asteriscos
"**" y creo que deberian admitirlo.

Saludos.

"Hoyos" <jlh...@jccm.es> escribió en el mensaje
news:1060166665.75032@proxy4...