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

Board index FiveWin para Harbour/xHarbour Interpretar 26/07/2017 00:00:00.000 de excel

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Interpretar 26/07/2017 00:00:00.000 de excel
Posted: Thu Aug 10, 2017 06:16 PM

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.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Interpretar 26/07/2017 00:00:00.000 de excel
Posted: Thu Aug 10, 2017 08:23 PM

viewtopic.php?f=6t=34448

Dios no está muerto...

Gracias a mi Dios ante todo!

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: Interpretar 26/07/2017 00:00:00.000 de excel
Posted: Thu Aug 10, 2017 10:06 PM

Code (fw): Select all Collapse

miFecha := HB_TTOD( dFecPol )
? miFecha

______________________________________________________________________________

Sevilla - Andalucía

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Interpretar 26/07/2017 00:00:00.000 de excel
Posted: Fri Aug 11, 2017 01:39 PM

Code (fw): Select all Collapse

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion