Biblioteca de Clases,Funciones y Sub-rutinas.

[Saruman]

Saber el signo zodiacal de alguien...

Utilización:

fecha_nacimiento = "09/10/1981"
mi_signo = PutSignoZodiacal(fecha_nacimiento)

response.write("Mi Signo Zodiacal es: " & mi_signo)

Resultado: Mi Signo Zodiacal es: Virgo

Código:

Function PutSignoZodiacal(strFechaNacimiento)
	strDia = day(strFechaNacimiento)
	strMes = month(strFechaNacimiento)
		
	select case strMes
		case 1
			if strDia <= 19 then strSigno = "Capricornio"
			if strDia >= 20 then strSigno = "Acuario"
		case 2
			if strDia <= 18 then strSigno = "Acuario"
			if strDia >= 19 then strSigno = "Piscis"
		case 3
			if strDia <= 20 then strSigno = "Piscis"
			if strDia >= 21 then strSigno = "Aries"
		case 4
			if strDia <= 20 then strSigno = "Aries"
			if strDia >= 21 then strSigno = "Tauro"
		case 5
			if strDia <= 20 then strSigno = "Tauro"
			if strDia >= 21 then strSigno = "Geminis"
		case 6
			if strDia <= 21 then strSigno = "Geminis"
			if strDia >= 22 then strSigno = "C&aacute;ncer"
		case 7
			if strDia <= 22 then strSigno = "C&aacute;ncer"
			if strDia >= 23 then strSigno = "Leo"
		case 8
			if strDia <= 22 then strSigno = "Leo"
			if strDia >= 23 then strSigno = "Virgo"
		case 9
			if strDia <= 22 then strSigno = "Virgo"
			if strDia >= 23 then strSigno = "Libra"
		case 10
			if strDia <= 22 then strSigno = "Libra"
			if strDia >= 23 then strSigno = "Escorpion"
		case 11
			if strDia <= 21 then strSigno = "Escorpion"
			if strDia >= 22 then strSigno = "Sagitario"
		case 12
			if strDia <= 21 then strSigno = "Sagitario"
			if strDia >= 22 then strSigno = "Capricornio"
		case else
			strSigno = ""
	end select
		
	PutSignoZodiacal = strSigno
End Function