Como convertir datetime en Fecha con VFP

Datetime a Fecha

Sintaxis
DATETIME([nYear, nMonth, nDay [, nHours [, nMinutes [, nSeconds]]]])

Esta función devuelve la fecha y hora actual como un valor de Fecha y hora, o crea un valor de Fecha y hora que cumple con el año 2000.

set century on

cCadena=datetime()

fec=SUBSTR(dtoc(cCadena),1,10)

? fec

Si set century esta en off deberás sustitur SUBSTR(dtoc(cCadena),1,10) y colocar SUBSTR(dtoc(cCadena),1,8)

La variable fec tomará los 10 primeros valores contenidos en la variable cadena y lo transforma en una cadena.

Si deseas convertirlo a tipo date tan solamente deberás utilizar la función CtoD(cCadena).

Datetime a Hora

Sintaxis:

TTOC(cCadena [, 1 | 2 | 3])

Para poder convertir la función Datetime() debemos recurrir a una función denominada TTOC() la cual Convierte una expresión DateTime en un valor de carácter con el formato especificado.

TTOC() especifica una expresión DateTime para convertir en una cadena de caracteres. 

Si cCadena solo contiene una hora, Visual FoxPro agrega la fecha predeterminada de 30/12/1899 a cCadena. Si cCadena solo contiene una fecha, Visual FoxPro agrega una hora predeterminada de 12:00:00 AM (si SET HOURS es 12) o 00:00:00 (si SET HOURS es 24) a cCadena para generar un valor de DateTime válido.

set century on

cCadena=datetime()

? TTOC(cCadena,1) 

? TTOC(cCadena,2) 

? TTOC(cCadena,3) 

20190702194307

07:43:07 PM

2019-07-02T19:43:07