? SrvTime("servidor",.T.) FUNCTION SrvTime( tcSvrName, tlSet ) LOCAL lcComm, lnHandle, lcString, lcTime ERASE srvtime.txt lcComm = "Net TIME \\" + tcSvrName + IIF(tlSet," /SET /Y ","") + " > srvtime.txt" RUN &lcComm IF FILE("srvtime.txt") lnHandle = FOPEN("srvtime.txt") lcString = FGETS(lnHandle) FCLOSE(lnHandle) lcTime = SUBSTR(lcString,RATC(SPACE(1),lcString,2)+1) ELSE lcTime = "?" ENDIF RETURN lcTime ENDFUNC>esto me extrae la fecha del servidor pero ademas de extraer la fecha yo necesito cambiar la hora de la pc local, para que este sincronizado con el servidor, tal ves tenga una diferencia de segundos pero con los segundo no hay problemas.