Obtener Fecha y Hora del Servidor

Si desea saber la hora del servidor sin importar el sistema operativo que use, aquí tenemos, basándonos en las recomendaciones de Alex Feldstein (MS MVP), una función para obtener la fecha y hora del servidor (tipo DateTime) que funcionará si usa Novell Netware, Microsoft Windows (cualquier versión), incluso Linux (si activa el demonio SAMBA).

Lo único 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.

Espartaco Palma Martínez

******************************************************************
* ---- 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
******************************************************************