Código de Visual Basic - Calculo del digito de control de cuenta bancaria

sin imagen de perfil

Calculo del digito de control de cuenta bancariagráfica de visualizaciones


Visual Basic

Publicado el 30 de Septiembre del 2002 por Antonio Pérez
26.639 visualizaciones desde el 30 de Septiembre del 2002
Función para calcular el digito de control de un banco.

Versión 1
estrellaestrellaestrellaestrellaestrella(4)

Publicado el 30 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
26.640 visualizaciones desde el 30 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Function sBankControlDigit(Bank As Integer, SubBank As Integer, Account As Double) As String
    Dim sBank As String
    Dim sSubBank As String
    Dim sAccount As String
    Dim Temporal As Integer
 
    sBank = Format(Bank, "0000")
    sSubBank = Format(SubBank, "0000")
    sAccount = Format(Account, "0000000000")
 
    Temporal = 0
    Temporal = Temporal + Mid(sBank, 1, 1) * 4
    Temporal = Temporal + Mid(sBank, 2, 1) * 8
    Temporal = Temporal + Mid(sBank, 3, 1) * 5
    Temporal = Temporal + Mid(sBank, 4, 1) * 10
    Temporal = Temporal + Mid(sSubBank, 1, 1) * 9
    Temporal = Temporal + Mid(sSubBank, 2, 1) * 7
    Temporal = Temporal + Mid(sSubBank, 3, 1) * 3
    Temporal = Temporal + Mid(sSubBank, 4, 1) * 6
    Temporal = 11 - (Temporal Mod 11)
    If Temporal = 11 Then
        sBankControlDigit = "0"
    ElseIf Temporal = 10 Then
        sBankControlDigit = "1"
    Else
        sBankControlDigit = Format(Temporal, "0")
    End If
 
    Temporal = 0
    Temporal = Temporal + Mid(sAccount, 1, 1) * 1
    Temporal = Temporal + Mid(sAccount, 2, 1) * 2
    Temporal = Temporal + Mid(sAccount, 3, 1) * 4
    Temporal = Temporal + Mid(sAccount, 4, 1) * 8
    Temporal = Temporal + Mid(sAccount, 5, 1) * 5
    Temporal = Temporal + Mid(sAccount, 6, 1) * 10
    Temporal = Temporal + Mid(sAccount, 7, 1) * 9
    Temporal = Temporal + Mid(sAccount, 8, 1) * 7
    Temporal = Temporal + Mid(sAccount, 9, 1) * 3
    Temporal = Temporal + Mid(sAccount, 10, 1) * 6
    Temporal = 11 - (Temporal Mod 11)
    If Temporal = 11 Then
        sBankControlDigit = sBankControlDigit + "0"
    ElseIf Temporal = 10 Then
        sBankControlDigit = sBankControlDigit + "1"
    Else
        sBankControlDigit = sBankControlDigit + Format(Temporal, "0")
    End If
End Function



Comentarios sobre la versión: Versión 1 (4)

30 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Lo he probado y funciona perfectamente. Llevaba tiempo buscando algo así. Gracias, Antonio Pérez.
Responder
26 de Septiembre del 2006
estrellaestrellaestrellaestrellaestrella
Funciona perfectamente,

Muchas grácias
Responder
12 de Noviembre del 2012
estrellaestrellaestrellaestrellaestrella
Perfecto

Gracias
Responder
Alberto
16 de Septiembre del 2019
estrellaestrellaestrellaestrellaestrella
Muchas gracias, funciona.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s327