Calculate IBAN for Spain from ccc. Calcular IBAN para EspaÃ±a desde el ccc.

Revision: 65800

at January 20, 2014 21:05 by xhiena

Updated Code

'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

Revision: 65799

at January 20, 2014 21:03 by xhiena

Initial Code

'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

Initial URL

Initial Description

This algorithm calculates an IBAN from a banc account in Spain.

Este algoritmo calcula el IBAN de una cuenta bancaria espaÃ±ola

Initial Title

Calculate IBAN for Spain from ccc. Calcular IBAN para EspaÃ±a desde el ccc.

Initial Tags

Initial Language

ASP

Choose a language for easy browsing: