Como obtener fecha y hora...

[Miguel Canchas]

Dres. una idea please.

 

Tenemos trabajando un sistema con Hamachi...Se necesita obtener la fecha y hora del servidor.

 

Internet no aplica y las BD son nativas....

 

Estoy probando con :

 

lcComando="Run Net Time "+'MISERVER'+" /set /yes"

&lcComando

 

 

Y no nada... como deberia ser o que ideas me sugieren...

 

MK

 

[Héctor Bernal]

Miguel,

Buen día. Checa el siguiente link http://fox.wikis.com/wc.dll?Wiki~GetServerTime o  http://www.news2news.com/vfp/?group=76&function=95. También, anexo un prg, esperando te sea de ayuda.

Saludos desde México, D.F.

[Arnaldo Toledano]

Acá  tenes un articulo que te puede ayudar.
tenes en cuenta que funciona solo con Windows XP
http://support.microsoft.com/kb/314090/es

Cual es la idea ?
Para que necesitas la hora ???

Arnaldo Toledano
Tesys Informática
Córdoba
Argentina

El 26/11/2013 11:26 a.m., Miguel Canchas escribió:

Run Net Time "+'MISERVER'+" /set /yes

--

[Miguel Canchas]

Fecha y Hora….

 

Es que lo necesito para hacer cierres y no me cambien la fecha ni la hora…

 

MK

[Miguel Canchas]

Run Net Time "+'\\MISERVER'+" /set /yes

 

Le faltaba los “ \\”... Aun asi..no se si funcionara igual con hamachi…

[Miguel Canchas]

Excelente, gracias…el PRG que enviaste no paso… please cambiale la extensión…

 

GRACIAS

 

 

MK

 

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Héctor Bernal
Enviado el: martes, 26 de noviembre de 2013 09:44 a.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Como obtener fecha y hora...

 

Miguel,

[Daniel Sánchez]

Haber si pruebas con este

function servertime

Lparameters TCSERVERNAME, TLUTCTIME

Declare Integer NetRemoteTOD In netapi32 String @, Integer @

Declare Integer RtlMoveMemory In win32api String @, Integer, Integer

TDBUFFOUT = Replicate(Chr(0), 48)

TDBUFFIN = 0

LCTRYSERVERNAME = Strconv(TCSERVERNAME, 5)

RC = NetRemoteTOD(@LCTRYSERVERNAME, @TDBUFFIN)

If RC=0

= RtlMoveMemory(@TDBUFFOUT, TDBUFFIN, 48)

Else

LCTRYSERVERNAME = Strconv("\\"+TCSERVERNAME, 5)

RC = NetRemoteTOD(@LCTRYSERVERNAME, @TDBUFFIN)

If RC=0

= RtlMoveMemory(@TDBUFFOUT, TDBUFFIN, 48)

Else

Return .Null.

Endif

Endif

TOD_MONTH = STR2LONG(Substr(TDBUFFOUT, 37, 4))

TOD_DAY = STR2LONG(Substr(TDBUFFOUT, 33, 4))

TOD_YEAR = STR2LONG(Substr(TDBUFFOUT, 41, 4))

TOD_HOURS = STR2LONG(Substr(TDBUFFOUT, 9, 4))

TOD_MINS = STR2LONG(Substr(TDBUFFOUT, 13, 4))

TOD_SECS = STR2LONG(Substr(TDBUFFOUT, 17, 4))

TOD_TIMEZONE = STR2LONG(Substr(TDBUFFOUT, 25, 4))*60

SERVERDATETIME = Datetime(TOD_YEAR, TOD_MONTH, TOD_DAY, TOD_HOURS, TOD_MINS, TOD_SECS)

If TLUTCTIME

TDSERVERTIME = SERVERDATETIME

Else

TDSERVERTIME = SERVERDATETIME-TOD_TIMEZONE

Endif

Return TDSERVERTIME

Endfunc

**

Function STR2LONG

Lparameters TCLONGSTR

Local LN, LNRETVAL

LNRETVAL = 0

For LN = 0 To 24 Step 8

LNRETVAL = LNRETVAL+(Asc(TCLONGSTR)*(2**LN))

TCLONGSTR = Right(TCLONGSTR, Len(TCLONGSTR)-1)

Endfor

Return LNRETVAL

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Arnaldo Toledano]

codigo82.wordpress.com/2010/07/22/bloquear-el-cambio-de-hora-en-windows-xp/
Acá tenes algo.
Ademas de esto levanta el servicio de HORA DE WINDOWS en todas las PC.


Arnaldo Toledano

--

[Percy Villano Fuentes]

basicamente creas un archivo en una carpeta compartida en el servidor y extraes la fecha y hora de creación del archivo

SET DATE BRITISH

SET HOUR TO 24

FUNCTION ServerTime (tcPath)

LOCAL ltFileTime

tcPath = IIF(TYPE('tcPath') # 'C', SPACE(0),ADDBS(tcPath))

lcFile = tcPath+SUBSTR(SYS(2015), 4) +".tmp"

IF STRTOFILE("Getting Hour/Obteniendo la Hora",lcFile) > 0

   ltFileTime = FDATE(lcFile,1)

   ERASE (lcFile)

   RETURN ltFileTime

ENDIF 

RETURN NULL 

el parametro que le pasas es la ruta de la carpeta compartida o unidad de red

[HernanCano]

Miguel:

El PRG sí pasó.