Meses y fechas en español con VFP 9

[arti...@gmail.com]

¿ Cómo puedo hacer que los nombres de los meses y los días de la semana aparezcan en español en VFP 9 ?

[Luis suescún]

Podrías de acuerdo a sus respectivos paralelos en ingles de los días de la semana y los meses hacer una función que te lo traduzca, o sea que te lo retorne en español 

El sáb., 28 sept. 2019 12:35, arti...@yahoo.es <arti...@gmail.com> escribió:

¿ Cómo puedo hacer que los nombres de los meses y los días de la semana aparezcan en español en VFP 9 ?

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/cad4f8a3-8f03-44ac-9b25-418b2fcb322c%40googlegroups.com.

[ZeRoberto]

Los runtimes del VFP de por si ya estan en español, asi que si haces un Cdow() o un Cmonth() te devolveran el texto en español, pero si quieres hacer tus propias funciones, aca te dejo uno y para el otro haces lo mismo pero le cambias los parametros.

Function CDowEx(tdDate)
Local lcDays, lcResult
   lcDays = "Domingo,Lunes,Martes,Miercoles,Jueves,Viernes,Sabado"
   lcResult = GetWordNum(lcDays, Dow(tdDate), ",")
   Return (lcResult)
EndFunc

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El sáb., 28 de sep. de 2019 a la(s) 12:35, arti...@yahoo.es (arti...@gmail.com) escribió:

¿ Cómo puedo hacer que los nombres de los meses y los días de la semana aparezcan en español en VFP 9 ?

--

[Zarlu]

Buenas tardes arti...@yahoo.es!

Como tu versión está en ingles usa una función...

? mes_letra(Date())

? Alltrim(Str(day(date())))+"/"+mes_letra(date())+"/"+Alltrim(Str(year(date())))

FUNC mes_letra
Parameter mDatoFecha

mFecha=mDatoFecha

DO CASE
   CASE MONTH(mFECHA)=1
     mMES="enero"
   CASE MONTH(mFECHA)=2
     mMES="febrero"
   CASE MONTH(mFECHA)=3
     mMES="marzo"
   CASE MONTH(mFECHA)=4
     mMES="abril"
   CASE MONTH(mFECHA)=5
     mMES="mayo"
   CASE MONTH(mFECHA)=6
     mMES="junio"
   CASE MONTH(mFECHA)=7
     mMES="julio"
   CASE MONTH(mFECHA)=8
     mMES="agosto"
   CASE MONTH(mFECHA)=9
     mMES="septiembre"
   CASE MONTH(mFECHA)=10
     mMES="octubre"
   CASE MONTH(mFECHA)=11
     mMES="noviembre"
   CASE MONTH(mFECHA)=12
     mMES="diciembre"
 ENDCASE

 RETURN mMES

Suerte

zarlu

Chetumal, Quintana Roo, México

[Luis Maria Guayan]

AL final de este artículo hay una función parta las fechas en español:

https://comunidadvfp.blogspot.com/2014/09/trabajar-con-fechas-y-horas-en-visual.html

Luis María Guayán