Ver Mensaje Individual
  #87 (permalink)  
Antiguo 22/10/2005, 16:55
Avatar de HPNeo
HPNeo
 
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 7 meses
Puntos: 0
Convertir fechas a Español

Bien... no se si sea de utilidad, pero sirve para los que tienen hosting en ingles y no pueden modificarlo, esta funcion recoge la fecha de la variable fecha , luego verifica cual es el dia de la semana y le asigna a una variable un string con el nombre en español, igual que al mes, luego un response.write con el dia de la semana, el numero de dia, el mes y el año.

Código:
Function FechaEspanol(fecha)
hoy=fecha
diasemana=(WeekDay(hoy))
dia=Day(hoy)
mes=Month(hoy)
anyo=Year(hoy)
 
Select Case diasemana
 Case "1"
  dsemana="Domingo"
 Case "2"
  dsemana="Lunes"
 Case "3"
  dsemana="Martes"
 Case "4"
  dsemana="Miércoles"
 Case "5"
  dsemana="Jueves"
 Case "6"
  dsemana="Viernes"
 Case "7"
  dsemana="Sábado"
End Select
 
Select Case mes
 Case "1"
  mmes="Enero"
 Case "2"
  mmes="Febrero"
 Case "3"
  mmes="Marzo"
 Case "4"
  mmes="Abril"
 Case "5"
  mmes="Mayo"
 Case "6"
  mmes="Junio"
 Case "7"
  mmes="Julio"
 Case "8"
  mmes="Agosto"
 Case "9"
  mmes="Setiembre"
 Case "10"
  mmes="Octubre"
 Case "11"
  mmes="Noviembre"
 Case "12"
  mmes="Diciembre"
End Select
 
Response.Write(dsemana&", "&dia&" de "&mmes&" de "&anyo)
 
End Function
Nos vemos luego
__________________
HPNeo