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ércoles","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