FoxPro/Visual FoxPro - Fecha En letras

Hola quisiera saber si alguien tiene una funcion que me permita mostrar en un informe la fecha de esta forma EJ. 11 sep 2007 cuando en el campo este 11/09/2007.

Sólo debes colocar sus propiedades del Text a formato fecha larga, saludos.
Ciao.

Plinio te agradezco muchisimo la ayuda pero sabes me funciona en un formulario pero en un informe las propiedades del cuadro de texto son mas limitadas solo dan dos opciones..

Lástima que no puedas hacerlo, pero te comento que yo utilizo (rara vez pero lo hago) ese estilo en informes y funciona a la perfeción (ingles - español), tal vez sea la versión de VFP que usas; pero lo dudo. Revisa bien las propiedades del objeto en cuestión y verás que si se puede.
Saludos.

Q ondas, debes establecer SET DATE LONG en ves de SET DATE DMY (u otro que uses)

Q ondas, debes establecer SET DATE LONG en ves de SET DATE DMY (u otro que uses)

*Yo tenía un problemita parecido y lo resolví con el siguiente codigo:


*Fecha en letras (Español)
*Declaro las variables que me servirán de base a dicho arreglo.


*Hago la extracción de datos para que me salgan en la caja de texto TxtFecha:?
Thisform.Text1.value = 'Hoy es '+ALLTRIM(cDia)+', '+ IIF(DAY(DATE())<10,"0"+ALLTRIM(STR(DAY(date()))),STR(DAY(date()),2))+' de '+ALLTRIM(cMes)+' del año '+STR(YEAR(DATE()),4)
*Basta crear la caja de texto TxtFecha y pegar este archivo en el Init del Formulario y ya tendremos nuestra fecha en letras y en español.

*Espero pueda servir a alguien.

reenviamelo a este correo..yo lo tengo..lo ke pasa es ke no lo tengo aka en esta makina
en unos dias te lo envio..pero..
abre el Ojo..reemvialo a la direccion ke te dije
un saludo desde Bogota-Colombia -Suramerica

Amigo Rumaldo :
No se si llegastes a resolver tu duda...
De todos modos aqui te muestro el codigo que vengo aplicando desde cuando programa en Foxpro 2.6 para D.O.S.
Creas una variable como un campo independiente dentro de tu Reporte generado con Asistente y enlazas la funcio que te muestro con el campo de tu variable.

*******************
Function LETRAMES && Devuelve las 3 1eras. Letras del Nro. del Mes
*******************
Parameter FECH_PRES
SET CENTURY ON
nm=MONTH(Fech_Pres) &&<--- Número del mes
DO CASE
CASE nm=1
lmes="ENE"
CASE nm=2
lmes="FEB"
CASE nm=3
lmes="MAR"
CASE nm=4
lmes="ABR"
CASE nm=5
lmes="MAY"
CASE nm=6
lmes="JUN"
CASE nm=7
lmes="JUL"
CASE nm=8
lmes="AGO"
CASE nm=9
lmes="SET"
CASE nm=10
lmes="OCT"
CASE nm=11
lmes="NOV"
CASE nm=12
lmes="DIC"
ENDCASE
WORDEC = STR(DAY(Fech_Pres),2,0) && Convierte a Alfanumerico
*************************************************
* --- Condicion Para El Cero a la IZQUIERDA --- *
*************************************************
IF LEN(LTRIM(wordec))=1
wlORDEC='0'+ ALLTRIM(wordec)
ELSE
Store WORDEC To wlORDEC
ENDIF
Resultado = wlORDEC + "/" + lmes + "/ "+ STR(YEAR(Fech_Pres),4,0)
RETURN( Resultado )

La segunda forma seria hacerlo directamente sobre el campo de tu variable de tipo fecha en tu reporte utilizando el comando STRTRAN hace poco al tratar de adaptar una rutina del Foxpro 2.6 que formateaba la salida en un Reporte algo como 11 09 2007 solo faltaria cambiar el nombre del mes en 3 caracteres...

Y se me ocurre una tercera utilizando las funciones propias del VFP
Ej.- ... + Substr(Cmonth(Date()),1,3) +...

Ahora si me despido hasta otra oportunidad...

Saludos,

GABRIEL
(Lima-Perú)

Hola, envío esta función que convierte la fecha
***
* mes_sml Devuelve la fecha en formato dd/mmm/aaaa
* 28/04/1999
*
FUNCTION MES_SML
PARAMETERS VAR_FECHA
LOCAL M,MESES
MESES = "ENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDIC"
M = month( VAR_FECHA )
M = (( M*3 ) - 3)+1
RETURN( ;
right(" "+alltrim(str(day(VAR_FECHA))),2)+"/"+ ;
substr(MESES,M,3)+"/"+ ;
alltrim(str(year(VAR_FECHA))) ;
)

muy buena rutina, me sirvio mucho

Que tal amigo yo tengo ese mismo problema pero tengo una duda soy nuevo supongamos que en mi informe yo estableci una variable xfecha = fecha &&&& donde fecha es mi variable en la tabla con formatod Date

y esa variable la quiero convertir al informe en por ejemplo 21 de Marzo de 2012

mi duda es como usar la funciona en el boton de imprimir o directamente en el informe

saludos

hola a todos... es la primera ves que entro en un foro y es que en la univ donde estudio me mandaron a hacer un programa en foxpro 9.0 y como soy nuevo en ese mundo de la prog visual me gustaria sime pudiesen ayudar diciendome como seria el codigo del boton guardar de un formulario... porfa necesito de su ayuda...

Para guardar qué? si fueras mas explícito tal vez te podria ayudar en algo...
Si lo que quieres es guardar un nuevo registro tendrias que usar "append blank" (para un registro nuevo) luego hacer uno o varios "replace" para ingresar el contenido en cada campo, con esto "guardarias" la info.

me interesaria saber como puedo programar una consulta y las modificaciones en el programa Visual Basic 6.0

quiero que me ayuden a programar en visual fox por porque soy nuevo en esto y no se como comensar mi coreo [email protected] y me dejas tu informacion si me ban a ayudar si porfa porque quiero aprender gracias

hola .. soy nuevo en la programacion y tengo que hacer un trabajo referente de programar botones a objetos orientados.... como
- primero
- siguiente
- anterior
- ultimo
- salir...
porfavor nesecito su mayor colaborasion...
grcias... envien su respuesta lo antes posible...

para salir con thisform.release

quiero saber como se programa el boton buscar y f3

quiero saver como puedo programar el boton agregar guardar cancelar modificar disculpen loque pasa que soy principiante nueva en esto espero una respuesta inmediata por su atencion gracias

putos todos

Hola, lo unico que tienes que hacer es ir a formato de Celdas luego eliges la opcion personalizada y copias esto dd" "mmm" "yyyy. Espero te ayude.