Funcion Alfabeto

[Jonatatan]

Por casualidad alguno de ustedes sabe si existe una funcion que me convierta la cadena de numeros del 1 - 26 a las letras del alfabeto corriespondientes??

De todas maneras comienzo a hacer la funcion, cuando lo tenga listo lo publicare..


Saludos y Gracias...

[Jonatatan]

Código:

function alfabeto(numero)
	Select Case numero
	    Case 0 : carattere = "A"
	    Case 1 : carattere = "B"
	    Case 2 : carattere = "C"
	    Case 3 : carattere = "D"
	    Case 4 : carattere = "E"
	    Case 5 : carattere = "F"
	    Case 6 : carattere = "G"
	    Case 7 : carattere = "H"
	    Case 8 : carattere = "I"
	    Case 9 : carattere = "J"
	    Case 10 : carattere = "K"
	    Case 11 : carattere = "L"
	    Case 12 : carattere = "M"
	    Case 13 : carattere = "N"
	    Case 14 : carattere = "O"
	    Case 15 : carattere = "P"
	    Case 16 : carattere = "Q"
	    Case 17 : carattere = "R"
	    Case 18 : carattere = "S"
	    Case 19 : carattere = "T"
	    Case 20 : carattere = "U"
	    Case 21 : carattere = "V"
	    Case 22 : carattere = "W"
	    Case 23 : carattere = "X"
	    Case 24 : carattere = "Y"
	    Case 25 : carattere = "Z"
	End Select
	alfabeto = carattere
end function

[u_goldman]

Prueba tambien con codigo ascii, si haces una impresion desde 65 a 91, solo necesitarias hacer alguna operacion para que 65 fuera = 1 y de ahi en adelante.

Response.Write(chr(65))

Saludos

[pcarvajal]

Aqui tienes la base, solo debes crear la funcion.
Y aunque no es mucho, pero espero te sirva de algo

<%
for i = 1 to 26
Response.Write(chr(i+64)) & "<br>"
next
%>

Saludos!