Pasar una fecha en formato numerico a formato en letras

catty_peque
01 de Marzo del 2004
Hola a todos, tengo una consulta, en uno de mis resportes la fecha q en mi base de datos esta en formato numerico la necesito q formato de texto, es decir si tengo 10/11/1981 que diga 10 noviembre de 1981, o tal vez tienen algun codigo q lo haga... por favor es urgente... muchas gracias

Catty

helper
01 de Marzo del 2004
Format(Date, "dddddd")

catty_peque
01 de Marzo del 2004
holas gracias x la respuesta, pero en ese parametro donde coloco la fecha q tengo... podrias enviarme algun ejemplo...

Muchas gracias


baltasar
01 de Marzo del 2004
texto=Format(mifecha, "dddddd")

donde mifecha es la variable que tú tienes.

Saludos

catty_peque
01 de Marzo del 2004
Muchas gracias... y dime si quisiera q salga sin el dia, es decir q solo salga 29 de enero del 2004
como hago???

david
01 de Marzo del 2004
te paso el codigo para q haga exactamente eso que quieres:

Texto=format(mifecha,"dddddd")
dia=mid(texto,1,2)
mes=mid(texto,3,2)
año=mid(texto,5,2)
'convertir el numero de mes en el mes en letras
if mes="1" then mes="Enero"
if mes="2" then mes="Febrero"
if mes="3" then mes="Marzo"
if mes="4" then mes="Abril"
if mes="5" then mes="Mayo"
if mes="6" then mes="Junio"
if mes="7" then mes="Julio"
if mes="8" then mes="Agosto"
if mes="9" then mes="Septiembre"
if mes="10" then mes="Octubre"
if mes="11" then mes="Noviembre"
if mes="12" then mes="Diciembre"

fecha=dia & " de " & mes & " del " & año

'saldria por ejemplo en fecha= "29 de Febrero del 2004"

de nada

david
01 de Marzo del 2004
por cierto tambien se puede hacer con las instrucciones Case

catty_peque
01 de Marzo del 2004
Muchas gracias.. me sirvio de mucho... saludos...
Catty