Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Visual Basic » Código de Visual Basic - Calculo del digito de control de cuenta bancaria

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

Volver
Agregar Código Fuente
<<>>

Versión 1
estrellaestrellaestrellaestrellaestrella(4)

Publicado el 30 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
28.904 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)

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

Muchas grácias
Responder
Bob
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
Acepto las políticas de privacidad

http://lwp-l.com/s327