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

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


Visual Basic

estrellaestrellaestrellaestrellaestrella(3)
Publicado el 30 de Septiembre del 2002 por Antonio Pérez
22.761 visualizaciones desde el 30 de Septiembre del 2002. Una media de 35 por semana
Función para calcular el digito de control de un banco.

Versión 1
estrellaestrellaestrellaestrellaestrella(3)

Publicado el 30 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
22.762 visualizaciones desde el 30 de Septiembre del 2002. Una media de 35 por semana
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 (3)

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

Comentar la versión: Versión 1

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

http://lwp-l.com/s327