Fechas en español

[eduardo]

Tomo el dia de una fecha desde una base de datos de access y cuando se ve ese dia en la página aparece en inglés.
Como hago para que se vea en español?

[javimartinez]

Hola

En lugar de enviar el día directamente a la página web puedes crearte una pequeña función que lo traduzca al español. Algo del tipo (no se si la sintaxis es correcta del todo):

function traducirDia(dia)
select case dia
case "monday"
return "Lunes"
...

No se si te servira

Un saludo :)

[Ellanes]

Yo utilizo esta función:

--------------------------------------------------------------

<% Function fecha %>

<% Dim lDay
Dim lMonth
lDay = Array ("","Lunes","Martes","Miércoles","Jueves","Viernes ","Sábado","Domingo")
lMonth = Array ("","Enero","Febrero","Marzo","Abril","Mayo","Juni o", _
"Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre" )

Response.write lDay(weekday (now, 2))&", "& Day(Now) &" de "& _
lMonth(Month(Now)) & " de " & Year(Now) %>

<% end function %>

-------------------------------------------------------------------

Es para coger la fecha actual, haz las modificaciones para adaptarla a tus necesidades.

Creo que no es exactamente lo que necesitas pero por lo menos te da una idea.

Espero que te sirva.

[affv]

Prueba con esto

<% 'Esto siempre al comienzo de la pagina
Session.lcid = 7178
%>

<% 'Sacas la fecha de la base
Fecha = Rs("Fecha")
%>

<% 'Muestras la fecha en formato agradable
= FormatDateTime(fecha,1)
%>

[trocolina]

Utiliza este codigo, funciona


antes del HTML

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
</SCRIPT>

y formatea el texto asi:

<%= DoDateTime((Recordset1.Fields.Item("Fecha").Value) , 2, 2070) %>