Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Cálculo Del Dígito De Control De Las Cuentas Bancarias
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Cálculo Del Dígito De Control De Las Cuentas Bancarias 
 
He tenido que hacer ésta función para un programa del curro. Si a alguien le viene bien, aquí lo tiene
PUBLIC FUNCTION calculadigito(entidad AS String, oficina AS String, cuenta AS String) AS String
  
   DIM aPesos AS Array = [1, 2, 4, 8, 5, 10, 9, 7, 3, 6] 'Array de "pesos"
   DIM cad AS String
   DIM digito AS String = "  "
   DIM ad AS NEW Integer[]
   DIM n, r AS Integer
   DIM dc1 AS Integer = 0
   DIM dc2 AS Integer = 0
   DIM x AS Integer

   IF Len(entidad) = 4 AND Len(oficina) = 4 AND Len(cuenta) = 10 THEN
        cad = entidad & oficina
        FOR x = 1 TO 8
          ad.Add(Val(Mid(cad, x, 1)))
        NEXT
        FOR x = 0 TO 7
           n = ad[x]
           dc1 = dc1 + (aPesos[x + 2] * n)
        NEXT  
        r = dc1 MOD 11
        dc1 = 11 - r
        IF dc1 = 10 THEN dc1 = 1
        IF dc1 = 11 THEN dc1 = 0
        cad = cuenta
        ad.Clear
        FOR x = 1 TO 10
          ad.Add(Val(Mid(cad, x, 1)))
        NEXT
        FOR x = 0 TO 9
           n = ad[x]  
           dc2 = dc2 + (aPesos[x] * n)
        NEXT  
        r = dc2 MOD 11
        dc2 = 11 - r
        IF dc2 = 10 THEN dc2 = 1
        IF dc2 = 11 THEN dc2 = 0
        digito = Str(dc1) & Str(dc2)
    ENDIF
    RETURN digito
  
END
 

 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes El Cálculo De La Media. portaro Aplicaciones/Fragmentos de Código 3 Miercoles, 17 Enero 2018, 23:37 Ver último mensaje
portaro
No hay nuevos mensajes Pastear Un Gridview A Una Hoja De Cálculo soplo Aplicaciones/Fragmentos de Código 17 Lunes, 24 Enero 2011, 05:53 Ver último mensaje
soplo
No hay nuevos mensajes Cómo Poder Hacer Cálculo Que Indique Añ... kike1965 General 17 Lunes, 09 Noviembre 2015, 13:34 Ver último mensaje
kike1965
No hay nuevos mensajes Creación De Un Nuevo Control En Gambas3: ... jsbsan Videotutoriales 3 Viernes, 06 Febrero 2015, 12:44 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario