如何取服务器时间，更改本地时间？？？？？急！！

[wwllww]

服务器时间能取到，但不知道，如何通过代码更改本地时间。。。

[ropriest]

调用windows的api函数SetSystemTime()和GetSystemTime()可以用来设置和获取系统时间。
具体做法如下：

[langel]

用API

[ropriest]

因为两个函数都是需要一个结构体作为参数。
1、定义结构体：
Structure SystemTime
unsignedinteger year
unsignedinteger month
unsignedinteger dayofweek
unsignedinteger day
unsignedinteger hour
unsignedinteger minute
unsignedinteger second
unsignedinteger millisecond

2、声明窗口的局部、外部函数：
SUBROUTINE GetSystemTime(ref systemtime systimerptr) Library "kernel32.dll"
//此函数返回系统时间
Function Long SetSystemTime(systemtime astr_time) Library "Kernel32.dll"
//此函数用来设置系统时间

3、定义一个函数来设置系统时间，即将结构体中所需参数传入结构体中，并用SetSystemTime(lstr_SystemTime)设置系统的时间
//函数定义略。

4、调用自定义函数，设置系统时间。

[htp_htp]

api

楼上说得很详细了

[liuhaiting]

API
Function long SetLocalTime(ust_systemtime lpSystemTime) library "kernel32"

st_systemtime系统定义的结构如下：
integer wyear
integer wmonth
integer wdyofweek
integer wday
integer whour
integer wminute
integer wsecond
integer wmillseconds


st_systemtime lht //更改系统时间的结构
//改为从sql服务器提取的时间
lht.wyear=integer(left(string(d_today,'yyyy-mm-dd'),4))
lht.wmonth=integer(mid(string(d_today,'yyyy-mm-dd'),6,2))
lht.wday=integer(right(string(d_today,'yyyy-mm-dd'),2))
lht.whour=integer(left(string(d_today,'hh:mm:ss'),2))
lht.wminute=integer(mid(string(d_today,'hh:mm:ss'),4,2))
lht.wsecond=integer(right(string(d_today,'hh:mm:ss'),2))
SetLocalTime(lht)

[liuhaiting]

用setsystemtime()会存在时区的问题，所以哥们建议用setlocaltime()来实现，上面的代码就可以啊，你看一下。

[longdrang]

兩种方法都可行.

[zhiming99]

各位，不知用RUN（DATE ）+ RUN（TIME ）行不行？

[zhiming99]

应该可行，不过我没试，有兴趣的试试。

[incats]

run("net time \\192.168.1.1 /set /y")

[ora9i]

关注

[lmby]

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)

[wangyaowu]

mark

[udb992002]

用SELECT 从服务器取得时间，然后再设置本机的时间。

[langel]

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)

[liliang800207]

up