Convertir fecha Texto
Muchos programadores buscan la manera de como utilizar la fecha y convertirlas en texto, para poder darle un aspecto distinto al programa como tal.
En este programa podrás apreciar la forma en la cual se utiliza este procedimiento y poder convertir la fecha en texto.
En el Evento Init coloca los siguiente:
PUBLIC xmestexto,xfecha,xfechatexto
xmestexto=""
xfechatexto=""
thisform.mestexto
thisform.diasemana
thisform.text1.Value=xmestexto
thisform.text2.Value=xfechatexto
thisform.text3.Value=YEAR(DATE())
thisform.Refresh
Deberás crear dos(2) Métodos, busca en la parte de arriba del Editor de Visual Foxpro y en la pestaña Form presionas Click y te aparecerá la opción de crear un nuevo Método, el primer Método llevará por nombre diasemana y el segundo método mestexto.
Metodo diasemana
DO case
CASE DOW(xfecha)=6
xfechatexto="Viernes"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=7
xfechatexto="Sabado"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=1
xfechatexto="Domingo"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=2
xfechatexto="Lunes"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=3
xfechatexto="Martes"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=4
xfechatexto="Miercoles"+" "+SUBSTR(DTOC(zfecha),1,2)
CASE DOW(xfecha)=5
xfechatexto="Jueves"+" "+SUBSTR(DTOC(zfecha),1,2)
ENDCASE
RETURN xfechatexto
Metodo mestexto
DO case
CASE month(xfecha)=1
xmestexto="Enero"
CASE month(xfecha)=2
xmestexto="Febrero"
CASE month(xfecha)=3
xmestexto="Marzo"
CASE month(xfecha)=4
xmestexto="Abril"
CASE month(xfecha)=5
xmestexto="Mayo"
CASE month(xfecha)=6
xmestexto="Junio"
CASE month(xfecha)=7
xmestexto="Julio"
CASE month(xfecha)=8
xmestexto="Agosto"
CASE month(xfecha)=9
xmestexto="Septiembre"
CASE month(xfecha)=10
xmestexto="Octubre"
CASE month(xfecha)=11
xmestexto="Noviembre"
CASE month(xfecha)=12
xmestexto="Diciembre"
ENDCASE
RETURN xmestexto
En tu formulario crea los tres(3) text, el primero de indicará el mes actual, el segundo indica el día de la semana y el último el año actual.
Este pequeño truco te resolverá lo que andas buscando.
En la parte inferior de la página te estaré dando el Link de Descarga del programa.