Como convertir

[LeCLUB]

Seguramente luego te encontrarás con el problema de que la fecha te la muestra en minúsculas, es decir:

jueves, 05 de noviembre de 2003

si quieres pasar esa fecha a :

Jueves, 05 de Noviembre de 2003

pues puedes utilizar esta función misma:

Function FechaCorrecta(valor)
SeparaFecha = (Split(FormatDateTime(valor,vblongdate), " "))
FechaCorrecta = (UCase(Left(SeparaFecha(0), 1))&Mid(SeparaFecha(0), 2)&" "&SeparaFecha(1)&" "&SeparaFecha(2) _
&" "&UCase(Left(SeparaFecha(3), 1))&Mid(SeparaFecha(3), 2)&" "&SeparaFecha(4)&" "&SeparaFecha(5))
End function


Y para pasar cualquier fecha que quieras al formato largo, y con el día y el mes en mayúsculas, pues:

FechaCorrecta(Now())
ó
FechaCorrecta(rs("fecha"))
ó
FechaCorrecta("05/03/2003)
etc
etc