tomar hora de pc

[charly0001]

hola foro: alguien me puede decir como hacer para tomar la hora de una PC con windows 95 a XP? Saludos.

[Gildus]

Holas,

si deseas sacar la hora de la pc local usarias facilmente la funcion time()

Ahora si deseas sacar la hora del servidor o de la red en la que te encuentras puedes leerte este parrafo que lo saque de un postde portalfox:

Si desea saber la hora del servidor sin importar el sistema operativo que use, aqui tenemos cómo hacerlo.
Basandome en las recomendaciones de Alex Feldstein (MS MVP), pongo a su disposición una función para obtener la fecha y hora del servidor (tipo DateTime), esta funcionara si usa Novell Netware, Microsoft Windows (cualquier version), incluso Linux (si activa el demonio SAMBA), lo unico que se necesita es tener derechos de escritura en la carpeta, folder o recurso compartido del servidor.
ltFecha = ServerTime("F:/")Pasandole de Parametro un recurso compartido:
ltFecha = ServerTime("//SERVIDOR/VALUACION")Si no se pasan parametros, tomara por default la fecha del equipo donde se ejecute el programa:
ltFecha = ServerTime()Espero que les sea de utilidad.

******************************************************************
* ---- Server DateTime ----- Fecha y Hora del Servidor
* ---- Espartaco Palma Martinez esparta@NO_SPAMsofthome.net
* ---- FUNCTION: ServerTime
* ---- RETURNS: Server DateTime, NULL if cannot get DateTime
* ---- RETORNA: Fecha y Hora Server, NULL si no puede obtenerlo
* ---- PARAMETERS: tcPath - TYPE: Character
* ---- Basandose en las recomendaciones de Alex Feldstein (MS MVP)
* ---- sobre como obtener la fecha y hora del servidor.
* ---- DATE: 03/DIC/2002 For Use in Visual FoxPro.
* ---- Sample:
* ---- ltFecha = FechaHora("F:/")
* ---- ltFecha = FechaHora("//SERVER/VALUACION/")
* ---- NOTE: If you are using minor versions of VFP7, use FoxTools
* ---- NOTA: Si esta usando versiones menores a VFP7, use FoxTools
******************************************************************
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
******************************************************************


Note: Ha sido reportado que la anterior función no funciona del todo bien cuando se utilizan clientes Win98, ya que con ésta versión sigue tomando la fecha del cliente y no la del servidor.

Saludos
Gildus