大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我从来没用过VB,所以具体代码就没办法给你了
创新互联公司是一家专业提供山西企业网站建设,专注与成都做网站、网站设计、成都h5网站建设、小程序制作等业务。10年已为山西众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
w32tm命令,自己搜索相关内容
通过参数可以完成同步
我以前不知道这命令,
用过三种方法完成过
1、发送信息到NTP服务器
2、写了服务端可客户端,客户端同步的时候请求服务端,服务端读取本机时间后返回给客户端,客户端通过API修改时间(这个要在服务器上放程序)
3、使用net time \\IP,获取返回值,通过字符截取,在用API修改是时间(这个时间有延迟,1分钟内的误差)
w32tm.exe这个是标准的NTP客户端啊,好用啊,早知道我都不用那么麻烦了
思路没有错,
先插入【开始时间】insert into table(时间) values(Now)
等结束之后,再根据主键去查出开始时间
用结束时间将其减去
Shell("cmd.exe /c net time \\server /set /y", vbHide)
'其中server表示服务器
VB里有好多时间函数,使用方法和excel类似,直接调用就好了,比如now显示当前时间,today表示当前日期,又如year年,month月,day日,hour小时(24小时制),minute分,second秒;
另外要想获得想要的时间格式,你需要一个格式函数Formart(),表示为formart(date,formart of date),比如我想获得今天的日期并且用这种格式2015-08-31,那么函数是formart(now,"ddddd"),这里的ddddd就是格式符,想要获得全部的格式符可以百度“formart()函数使用“,我这里就不引用了,希望以上内容对你有帮助
在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间
private
sub
form_load()
timer1.interval
=
300
end
sub
private
sub
timer1_timer()
dim
cnn
as
new
adodb.connection
dim
cmd
as
new
adodb.command
dim
rst
as
new
adodb.recordset
dim
sqlser_time
cnn.connectionstring
=
"driver={sql
server};"
_
"server=server;uid=sa;pwd=;database=master"
cnn.open
cmd.activeconnection
=
cnn
cmd.commandtext
=
"select
getdate()
as
sys_sqlser_time"
set
rst
=
cmd.execute
sqlser_time
=
rst(0)
text1.text
=
sqlser_time
rst.close
cnn.close
end
sub
假设IP地址保存在字符串变量ip里:
Shell "net time \\" ip " /set /y"