********************************************************************** FUNCTION CheckServerTime #DEFINE MAXMINUTESDISCREPANCY 10 local lcDateFile, lnFileHandle, ldServerTime, ldLocalTime lcDateFile = sys(2015) + ".tmp" lnFileHandle = fcreate(lcDateFile) && to create a text file on the server. fclose(lnFileHandle) && to close it. ldServerTime = fdate(lcDateFile, 1) && to read the time of creation. ldLocalTime = datetime() erase (lcDateFile) && to get rid of the file. if abs(ldServerTime - ldLocalTime) > MAXMINUTESDISCREPANCY * 60 MessageBox("El reloj de su computadora no coincide con el" + CRLF; + "del servidor. Por favor corrija su hora," + CRLF; + "o solicite que se corrija la del servidor." + CRLF; + ttoc(ldServerTime) + " (hora del servidor)" + CRLF; + ttoc(ldLocalTime) + " (hora local)",; 16, "La hora está mal") * ("The time of your computer doesn't match the time on the server.") return .F. endif ENDFUNC