Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

IBAN

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Consultas
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Gonzalos
Invitado
MensajePublicado: Mie 04 May, 2005 3:39 pm    Asunto: IBAN Responder citando
¿Sabe alguien como o donde puede conseguir el calculo del IBAN?

Gracias.
Volver arriba
marcoss
Cdt
Cdt


Registrado: 24 Dic 2004Mensajes: 24
MensajePublicado: Jue 05 May, 2005 10:37 am    Asunto: Responder citando
Código:
AnsiString __fastcall TFrmPpal::CalcularIBAN(AnsiString cuenta)
{
        AnsiString res = "";

        if(cuenta.Length() == 20 && EsNumero(cuenta))
        {
                cuenta += "142800";

           long resto = cuenta.SubString(1, 4).ToInt() % 97;
           resto =   (cuenta.SubString(5, 4).ToInt() + resto * 10000) % 97;
           resto =   (cuenta.SubString(9, 4).ToInt() + resto * 10000) % 97;
           resto =   (cuenta.SubString(13, 4).ToInt() + resto * 10000) % 97;
           resto =   (cuenta.SubString(17, 4).ToInt() + resto * 10000) % 97;
           resto =   (cuenta.SubString(21, 4).ToInt() + resto * 10000) % 97;
           resto =   (cuenta.SubString(25, 2).ToInt() + resto * 100) % 97;

           long Dc = 98 - resto;

                res = "ES" + AnsiString(Dc);
                res += cuenta.SubString(1, 4);
           res += cuenta.SubString(5, 4);
           res += cuenta.SubString(9, 4);
           res += cuenta.SubString(13, 4);
           res += cuenta.SubString(17, 4);
        }

        return res;
}


La función EsNumero es sencilla de hacer... Surprised
Volver arriba
Ver perfil de usuario Enviar mensaje privado
gonzalos
Invitado
MensajePublicado: Jue 05 May, 2005 4:59 pm    Asunto: iban Responder citando
Rolling Eyes
Gracias tío me has salvado la vida. Mi jefe ya me estaba achuchando.
Volver arriba
Mostrar mensajes de anteriores:   
Publicar nuevo tema   Responder al tema Foros de discusión -> Consultas Todas las horas son GMT + 1 Hora
Página 1 de 1
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.