Convertir Fecha y Hora en TimeStamp

[softruz]

Muy buenas foro, tengo que convertir una fecha y hora en formato timestamp

¿Tenéis un código por ahí?

Muchas Gracias

[Rick Lipkin]

Softruz

To create a DateTime expression you can do it like this

Code: Select all  Expand view

dDateTime := dtoc(date())+" "+Time()
 

If you wish to convert a DateTime expression from a Sql Table back to a standard Date expression you can use this function.

Code: Select all  Expand view

dDate := TtoDate( oRs:Fields("DateTime"):Value )

//------------------------------
Function TtoDate( tDate )

If empty( tDate)
   Return( ctod("00/00/00"))
Endif

If ValType( tDate ) = "D"
   Return(tDate )
Endif

Return( stod( substr( ttos( tDate ), 1, 8 ) ))
 

Rick Lipkin