Convertir fecha a texto en Visual Foxpro

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.