根据服务器的时间自动调整本机时间

FUNCTION   ulong   SetLocalTime(any   lpSystemTime)   LIBRARY   "kernel32.dll"  
   
  定义结构str_systime（unsignedinteger:   year,month,day,hour,minute,second）  
   
  datetime   dt_server  
  str_systime   lstr_tmp  
   
  select   getdate()   into   :dt_server   from   sysfiles;  
  lstr_tmp.year=year(date(dt_server))  
  lstr_tmp.month=month(date(dt_server))  
  lstr_tmp.week=daynumber(date(dt_server))   -   1  
  lstr_tmp.day=day(date(dt_server))  
  lstr_tmp.hour=hour(time(dt_server))  
  lstr_tmp.minute=minute(time(dt_server))  
  lstr_tmp.second=second(time(dt_server))  
   
  SetLocalTime(lstr_tmp)