Código para calcular dígito verificador

[jcl]

Hola,

Entiendo que existen diversos métodos para calcular lo que se conoce como Dígito verificador, ello con el fin de evitar errores al transcribir, por ejemplo, códigos de cuentas de bancos, entre otras.

¿Alguien tendrá o sabrá dónde encontrar el algoritmo o el código listo para usar y que permita obtener ese Dígito verificador?

Por ejemplo, desearía saber si el siguiente caso estaría bien: J-30880783-4, donde el último dígito (4) corresponde supuestamente al Dígito verificador del número 30880783.

No estoy seguro pero creo que para este caso se estaría aplicando un método que se llama "Método del módulo once (11)".

Muy agradecido de antemano.

Saludos.

[doncog]

hola viejo jaja yo lo estoy haciendo pero nose cual es la sintaxis del codigo verificado algo me acuerdo parece q se suman todos y se divedien pero no estoy seguro
pero te mando el codigo para dividir los numero

Dim R8, R7, R6, R5, R4, R3, R2, R1, NUM As Currency
NUM = Int(Text2.Text)
R8 = Int(NUM / 10000000)
NUM = Int(NUM Mod 10000000)
R7 = Int(NUM / 1000000)
NUM = Int(NUM Mod 1000000)
R6 = Int(NUM / 100000)
NUM = Int(NUM Mod 100000)
R5 = Int(NUM / 10000)
NUM = Int(NUM Mod 10000)
R4 = Int(NUM / 1000)
NUM = Int(NUM Mod 1000)
R3 = Int(NUM / 100)
NUM = Int(NUM Mod 100)
R2 = Int(NUM / 10)
NUM = Int(NUM Mod 10)
R1 = Int(NUM / 1)

MsgBox R8 & "-" & R7 & "-" & R6 & "-" & R5 & "-" & R4 & "-" & R3 & "-" & R2 & "-" & R1

esta en visual oka. a penas lo encuentre te lo mando