Interpretar 26/07/2017 00:00:00.000 de excel

[noe aburto]

Saludos nuevamente.

Con varias dudas acerca de lectura de datos de de una hoja de excel.
En una hoja de excel escribo la fecha 26/07/2017, asi tal cual... sin apostrofe como si fuera texto, al leerla
me dice que el tipo de dato es "T"
le doy:
? dFecPol

y me muestra
26/07/2016 00:00:00.00

como puedo cambiar este dato a una fecha valida?

Gracias.

[joseluisysturiz]

viewtopic.php?f=6&t=34448

[xmanuel]

Code: Select all  Expand view

miFecha := HB_TTOD( dFecPol )
? miFecha
 

[karinha]

Code: Select all  Expand view

Function TimeZone(dData)

   Local cDateTimeZone,aTimeStamp,cTzd

   Default dData:=Date()

   aTimeStamp:=hb_atokens(tip_timestamp(dData)," ")

   cTzd:=aTail(aTimeStamp)

   cTzd:=Left(cTzd,Len(cTzd)-2)+":"+Right(cTzd,2)

   cDateTimeZone:=StrZero(Year(dData),4)+"-"+StrZero(Month(dData),2)+"-"+StrZero(Day(dData),2)+"T"+Time()+cTzd

Return(cDateTimeZone)
 

Regards, saludos.