Extraer solo el DATE o el TIME de una variable DATETIME

[Diego Ferreira]

Saludos a todos...
Tal vez una pregunta tonta pero nunca trabaje hasta hoy con las variables DateTime y mi pregunta es como puedo Extraer solo el DATE o el TIME de una variable DATETIME de forma directa. Alguna funcion? o tengo que hacerme una? Lo cual no quiero ya que es tedioso y facil pero quiero usar un metodo directo si existe. Gracias....
Aparte les recomiendo este articulo de Rene que me ayudo mucho con este tipo de variables...
http://objetopersistente.blogspot.com/2 ... s-de-datos -datetime-en-xharbour.html
Gracias Rene !!!

[Israel Solis]

Para extraer la Fecha es Directo, es decir, haz las operaciones necesarias de fecha como si una DATE directamente se tratase
En cambio para la Hora....Espero te sirva de algo..

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* F U N C I O N: GetHoraFromDateTime(<dDateTime>) --> <cHora>
* DESCRIPCION : Regresa sólo la hora (hh:mm:ss) del DateTime pasado
* PARAMETROS : <dDateTime> = DateTime a tratar.
* DEVUELVE : <cHora> = Cadena con la hora en el fotmato hh:mm:ss
* E J E M P L O: GetHoraFromDateTime( DateTime() ) => "22:08:45"
*
FUNCTION GetHoraFromDateTime(dDateTime) // --> cHora
LOCAL cTime
IF ! HB_IsDateTime(dDateTime)
OutDebug("GetHoraFromDateTime(dDateTime): Error en Parámetro, se esperaba DateTime")
RETURN("")
ENDIF
cTime := TtoS(dDateTime)
RETURN(SubStr(cTime, 9, 2) + ":" + SubStr(cTime, 11, 2) + ":" + SubStr(cTime, 13, 2))
*
* FIN GetHoraFromDateTime()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Saludos !!
Israel

[Diego Ferreira]

Gracias Israel !!!
Yo lo llegue a hacer asi:
Function ExtractTime( dtValue )
Local cTime := "00:00:00"
If !Empty( dtValue )
cTime := SubStr( ToS( dtValue ), 12, 8 )
EndIf
Return cTime