Vb.net 2008 如何獲取網(wǎng)絡(luò)時(shí)間

你是指Internet上的國(guó)際標(biāo)準(zhǔn)時(shí)間嗎。

成都創(chuàng)新互聯(lián)公司從2013年創(chuàng)立，先為埇橋區(qū)等服務(wù)建站，埇橋區(qū)等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為埇橋區(qū)企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。

先加入控件 AxWinsock1 在.Com中Microsoft.Winsock

Public Class Form1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)

Dim NoSrv As Boolean

Dim TimeFromNet As String

Dim OldTime As Date

Dim NewTime As Date

Dim MyDate As Date

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()

AxWinsock1.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol

NetTime("") '首先取中科院國(guó)家授時(shí)中心時(shí)間

If NoSrv Or TimeFromNet = "" Then

NetTime("time.nist.gov") '取美國(guó)標(biāo)準(zhǔn)技時(shí)院時(shí)間

If NoSrv Or TimeFromNet = "" Then

MsgBox("檢測(cè)不到網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器time.nist.gov！")

Else

NetTime("time.nist.gov")

If TimeFromNet = "" Then

MsgBox("網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器time.nist.gov超時(shí)！")

Else

MyDate = Mid(TimeFromNet, 8, 8)

OldTime = Mid(TimeFromNet, 17, 8)

NewTime = TimeSerial((Hour(OldTime) + 8) Mod 24, Minute(OldTime), Second(OldTime))

Dim MyTime As DateTime = MyDate Space(1) NewTime

MsgBox(MyTime)

'SetWindowsClock(MyTime)

End If

End If

Else

'使網(wǎng)絡(luò)誤差時(shí)間小，第2次再中科院國(guó)家授時(shí)中心時(shí)間

NetTime("")

If TimeFromNet = "" Then

MsgBox("網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器超時(shí)！")

Else

MyDate = Mid(TimeFromNet, 8, 8)

NewTime = Mid(TimeFromNet, 17, 8)

Dim MyTime As DateTime = MyDate Space(1) NewTime

MsgBox(MyTime)

'SetWindowsClock(MyTime)

End If

End If

End Sub

Private Sub NetTime(ByVal TimeSrv As String)

NoSrv = False

TimeFromNet = ""

If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()

AxWinsock1.RemoteHost = TimeSrv ' "" 或 "time.nist.gov"

AxWinsock1.RemotePort = 13

AxWinsock1.LocalPort = 0

AxWinsock1.Connect()

Do While TimeFromNet = ""

If NoSrv Then Exit Do

Sleep(55)

System.Windows.Forms.Application.DoEvents()

Loop

If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()

End Sub

Private Sub AxAxWinsock1_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWinsock1.CloseEvent

AxWinsock1.Close()

End Sub

Private Sub AxAxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival

AxWinsock1.GetData(TimeFromNet)

End Sub

Private Sub AxAxWinsock1_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles AxWinsock1.Error

NoSrv = True

End Sub

End Class

VB.net窗體程序的time控件，可以識(shí)別到的最小時(shí)間差是多少納秒 ?

VB有現(xiàn)成的函數(shù)：

DateDiff(格式,日期1,日期2)

如今天到2010-5-1 8:00:00的時(shí)間差，代碼：

DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '還有幾(整)年

DateDiff("q",Now,#2010-5-1 8:00:00#) '還有幾(整)季度

DateDiff("m",Now,#2010-5-1 8:00:00#) '還有幾(整)月

DateDiff("d",Now,#2010-5-1 8:00:00#) '還有幾(整)天

DateDiff("ww",Now,#2010-5-1 8:00:00#) '還有幾(整)周

DateDiff("h",Now,#2010-5-1 8:00:00#) '還有幾(整)小時(shí)

DateDiff("n",Now,#2010-5-1 8:00:00#) '還有幾(整)分鐘

DateDiff("s",Now,#2010-5-1 8:00:00#) '還有幾(整)秒

vb net獲取系統(tǒng)時(shí)間

Sub?gettime()

nowtime?=?Format(DateTime.Now,?"yyyy/MM/dd?hh:mm:ss")

MsgBox?nowtime

End?Sub

其中DateTime.Now為當(dāng)前系統(tǒng)的時(shí)間

Format是設(shè)置時(shí)間格式

效果如下

網(wǎng)站名稱：vb.nettime,vbnettimer 最大間隔
分享URL：http://jinyejixie.com/article26/dsedocg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、外貿(mào)網(wǎng)站建設(shè)、用戶體驗(yàn)、響應(yīng)式網(wǎng)站、全網(wǎng)營(yíng)銷推廣、網(wǎng)站導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)