datetime de access

[Francisco Horta]

como se obtiene una variable del tipo datetime de una tabla de access, usando ADO?
salu2
paco

[R.F.]

te la devuelve como cadena de caracteres, aunque xHarbour ya posee el tipo de dato DateTime.

Tomado del manual de xHarbour:

Code: Select all

PROCEDURE Main
      LOCAL d1, d2, nDiff

      SET CENTURY ON
      SET TIME FORMAT TO "hh:mm:ss.ccc"

      ? DateTime()                      // result: [today] [systemtime]
      ? {ˆ 2007/04/26}                  // result: 04/26/2007
      ? {ˆ 05:30:12.345}                // result: 12/30/1999 05:30:12.345
      ? {ˆ 05:30:12.345 PM}             // result: 12/30/1999 17:30:12.345

      ** Empty value
      ? d1 := {ˆ 0/0/0 }                // result:   /  /
      ? Empty( d )                      // result: .T.

      ** difference between DateTime and Date
      ? d1 := {ˆ 2007/04/26 18:30:00 }  // result: 04/26/2007 18:30:00.000
      ? d2 := StoD("20070426")          // result: 04/26/2007
      ? nDiff := d1-d2, "days"          // result: 0.77 days
      ? TString( nDiff*86400 )          // result: 18:30:00

      ** Adding 2 days to DateTime
      ? d1 + 2                          // result: 04/28/2007 18:30:00.000

      ** Adding 2 hours to DateTime
      ? d1 + 2/24                       // result: 04/26/2007 20:30:00.000

      ** Adding 2 minutes to DateTime
      ? d1 + 2/(24*60)                  // result: 04/26/2007 18:32:00.000

      ** Adding 2 seconds to DateTime
      ? d1 + 2/(24*3600)                // result: 04/26/2007 18:30:02.000

   RETURN

[Francisco Horta]

Gracias rene, como siempre tan oportuno (savelife), pues siempre al obtener el dato de la .mdb unicamente me regresaba el dato fecha, veo lo que comentas.
gracias
paco

[Francisco Horta]

Gracias rene, esta funcion esta en xharbour, pero lo que necesito es obtener el dato fecha y hora que esta almacenado en una .mdb, pero desde fwh, hice la conexion con ADO y al traer el VALUE del campo unicamente me trae la fecha, y necesito ambos fecha y hora, como veo la explicacion que haces es para yo hacerlo directamente con una variable usando la funcion datetime...
aDato[2] := oRS:Fields("FECHAMOV"):Value
aDato[2] se guarda unicamente la fecha...

salu2
paco

[sysctrl2]

Paco efectivamente aunque en el acces se mira el campo con fecha y hora

el recorset de ADO solo te devuelve la fecha ignorando el resto,


05/09/2007 07:33:20


msginfo( oRS:Fields("FECHAMOV"):Value )

solo muestra un pezado del estring 05/09/2007

algun guro debe de saber el porque .

saludos..