FoxPro/Visual FoxPro - Fecha y Hora en una Label

Hola amigos que tal. a ver si alguien me puede ayudar en como puedo realizar una label, la cual me muestre la fecha y la hora; la fecha en letras y la hora asi normal,
Ejmpl. fecha= 02/02/2010
Hora= 09:31 p.m
en la label:
Dos de Febrero del 2010
y la hora puede ir en otra label.. no hay problema con eso...
Gracias.... Espero su ayuda

Aprendiz, pon esto en el GOTFOCUS de la label:
xfecha = STR(DOW(DATE())) + ' de ' + ;
CMONTH(DATE()) + ' del ' + ALLT(STR(YEAR(DATE( ))))
THISFORM.command1.caption = ALLT(xfecha)
Avisa si eso es lo que necesitas.

Si es bien lo Probe y es CASI lo que quiero mira en primer lugar hice esto
el codigo lo puse mejor en el init del form.. para cuando se formaran los objetos la label cargara de la forma del codigo que tu me diste.

xfecha = STR(DOW(DATE())) + ' de ' + ;
CMONTH(DATE()) + ' del ' + ALLT(STR(YEAR(DATE( ))))
THISFORM.label1.caption = ALLT(xfecha)

y funciona bien.. pero lo que pasa es que me sale en ingles por ejmplo.

5 de february del 2010... se podra pasar a español.??? y a ver si se puede que salga con el dia.. ejmplo

Jueves 5 de Febrero del 2010

Gracias... Espero tu ayuda..

Gracias por tomar tu tiempo y contestar nuestras preguntas...

umm Tambien estuve viendo que el dia, por ejemplo hoy es 4 de febrero, me lo muestra como 5 de febrero..

xfecha = ALLT(CDOW(Date())) + ' ' + ALLT(STR(DOW(DATE()))) + ;
' de ' + CMONTH(DATE()) + ' del ' + ALLT(STR(YEAR(DATE( ))))
THISFORM.command1.caption = ALLT(xfecha)

Que tal Amigos :

Quien les escribe viene utilizando VFP 9.0 version en Inlges por ello a continuacion les copio un ejemplo del codigo que vengo utilizando en mi Sistema para mostrar el nombre del Mes en Español...

De igual manera siguiendo el ejemplo pueden hacerlo para obtener el nombre del Mes.

DO Case
case cdow(date()) = "Sunday"
Quedia = "Domingo"
case cdow(date()) = "Monday"
Quedia = "Lunes"
case cdow(date()) = "Tuesday"
Quedia = "Martes"
case cdow(date()) = "Wednesday"
Quedia = "Miércoles"
case cdow(date()) = "Thursday"
Quedia = "Jueves"
case cdow(date()) = "Friday"
Quedia = "Viernes"
case cdow(date()) = "Saturday"
Quedia = "Sábado"
Endcase

Saludos,

Gabriel
(Lima-Perú)

ya tienes resuelto tu problema? responde y en todo caso te puedo ayudar