Advanced Search

Return to Snippet

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