我从来没用过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"
