我從來沒用過VB,所以具體代碼就沒辦法給你了
創(chuàng)新互聯(lián)公司是一家專業(yè)提供山西企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、成都h5網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為山西眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計(jì)公司優(yōu)惠進(jìn)行中。
w32tm命令,自己搜索相關(guān)內(nèi)容
通過參數(shù)可以完成同步
我以前不知道這命令,
用過三種方法完成過
1、發(fā)送信息到NTP服務(wù)器
2、寫了服務(wù)端可客戶端,客戶端同步的時(shí)候請求服務(wù)端,服務(wù)端讀取本機(jī)時(shí)間后返回給客戶端,客戶端通過API修改時(shí)間(這個(gè)要在服務(wù)器上放程序)
3、使用net time \\IP,獲取返回值,通過字符截取,在用API修改是時(shí)間(這個(gè)時(shí)間有延遲,1分鐘內(nèi)的誤差)
w32tm.exe這個(gè)是標(biāo)準(zhǔn)的NTP客戶端啊,好用啊,早知道我都不用那么麻煩了
思路沒有錯(cuò),
先插入【開始時(shí)間】insert into table(時(shí)間) values(Now)
等結(jié)束之后,再根據(jù)主鍵去查出開始時(shí)間
用結(jié)束時(shí)間將其減去
Shell("cmd.exe /c net time \\server /set /y", vbHide)
'其中server表示服務(wù)器
VB里有好多時(shí)間函數(shù),使用方法和excel類似,直接調(diào)用就好了,比如now顯示當(dāng)前時(shí)間,today表示當(dāng)前日期,又如year年,month月,day日,hour小時(shí)(24小時(shí)制),minute分,second秒;
另外要想獲得想要的時(shí)間格式,你需要一個(gè)格式函數(shù)Formart(),表示為formart(date,formart of date),比如我想獲得今天的日期并且用這種格式2015-08-31,那么函數(shù)是formart(now,"ddddd"),這里的ddddd就是格式符,想要獲得全部的格式符可以百度“formart()函數(shù)使用“,我這里就不引用了,希望以上內(nèi)容對你有幫助
在窗體中建一個(gè)文本框和時(shí)間控件,可以在文本框中顯示跳動(dòng)的服務(wù)器時(shí)間
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
假設(shè)IP地址保存在字符串變量ip里:
Shell "net time \\" ip " /set /y"