/ Published in: ASP
This algorithm calculates an IBAN from a banc account in Spain.
Este algoritmo calcula el IBAN de una cuenta bancaria española
Este algoritmo calcula el IBAN de una cuenta bancaria española
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
'rellena con 0 delante function fill0(s,l) cad=s while (len(cad)<l) cad="0"&cad wend fill0=cad end function 'calcula el modulo 97 para números grandes function modulo97(number) tmp = "" for i = 1 to len(number) tmp = tmp & mid(cStr(number), i, 1) r = cInt(tmp) mod 97 tmp = cStr(r) next modulo97=tmp end function function generaibanES(ccc) iban_mi=ccc&"142800" '1428 = "ES" codificado dciban=modulo97(iban_mi) dciban=98-dciban iban="ES"&fill0(dciban,2)&ccc generaibanES=iban end function