我要的是我的系统时间对回北京时间
你是什么意思？？
我的代码的功能是连接标准北京时间的网站获取时间然后更改你本机的系统时间为北京时间~和你的要求有什么不一样吗
Dima,b,c,x,y
PrivateSubCommand1_Click()
DimtimeAsString
DimdayAsString
DimmAsString
DimnAsString
WebBrowser1.navigate""
s=a(0)&"-"&b(0)&"-"&c(0)&""&y
Ifs<>""Then
time=y
day=a(0)&"-"&b(0)&"-"&c(0)
m="cmd/ctime"&time
n="cmd/cdate"&day
Shellm
Shelln
Else
EndIf
EndSub
PrivateSubwebbrowser1_documentcomplete(ByValpDispAsObject,URLAsVariant)
z=WebBrowser1.document.body.innertext
x=Mid(z,InStr(z,"2009"),9)
y=Mid$(z,InStr(z,"农历")+7,8)
a=Split(x,"年")'a(0)为年
b=Split(a(1),"月")'b(0)为月
c=Split(b(1),"日")'c(0)为日
'Label1.Caption="标准北京时间的："&a(0)&"-"&b(0)&"-"&c(0)&""&y
EndSub
添加一个按钮~~一个webbrowser控件（部件-添加--microsoftinternetcontrol)
按下按钮将直接更改你系统的时间（标准的北京时间~精确程度就取决你网速了。）
