Fecha en español

[Manoloweb]

Funcion para desplegar la fecha en español
Recibe la variable "Cuando" en forma de una fecha especifica o de Now
Si "Forma" es =1 se despliega fecha larga, con cualquier otro valor se despliega fecha corta
se llama de la siguiente forma : fechaesp(Now,1)

Código:

function fechaEsp(cuando,forma)
	Dim meses
	Dim dias
	meses= Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")
	dias= Array("Domingo","Lunes","Martes","Mi&eacutercoles","Jueves","Viernes","Sábado")
	If forma=1 Then
		response.write dias(Weekday(cuando)-1)&" "&Day(cuando)&" de "&meses(month(cuando)-1)&" de "&year(cuando)
	Else
		response.write meses(month(cuando)-1)&" "&Day(cuando)
	End If
End Function