vb.net 如何獲取時間？

兩種方式自己選用

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、小程序定制開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了本溪免費(fèi)建站歡迎大家使用！

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

Dim s As String

s = DateTime.Today.Year()

s = s DateTime.Today.Month()

s = s DateTime.Today.Day()

s = s DateTime.Now.Hour()

s = s DateTime.Now.Minute()

s = s DateTime.Now.Second()

MsgBox(s, vbDefaultButton1, Now())

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As String

s = Format(Now(), "yyyymmddhhmmss")

MsgBox(s, vbYes, Now())

End Sub

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

你是指Internet上的國際標(biāo)準(zhǔ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("") '首先取中科院國家授時中心時間

If NoSrv Or TimeFromNet = "" Then

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

If NoSrv Or TimeFromNet = "" Then

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

Else

NetTime("time.nist.gov")

If TimeFromNet = "" Then

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

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ò)誤差時間小，第2次再中科院國家授時中心時間

NetTime("")

If TimeFromNet = "" Then

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

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中實時顯示時間

定時器中處理

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Timer1.Interval?=?10?'10毫秒刷新一次

Timer1.Start()?'開啟定時器

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

Label1.Text?=?Now

End?Sub

問一個VB.NET中關(guān)于時間操作的問題。

1、時間可以直接比較大小，定義兩個時間的變量，直接使用或者即可判斷，跟數(shù)據(jù)大小判斷是一樣的

2、時間差值，可以使用DateDiff函數(shù)進(jìn)行

3、比如取一個現(xiàn)在的時間now，使用Year、month、day、hour、min、sec函數(shù)可以取到now的年份、月、日、小時、分鐘和秒

vb怎么獲取系統(tǒng)當(dāng)前的系統(tǒng)時間啊

vb中獲取系統(tǒng)當(dāng)前的時間用函數(shù) now() 就可以。另外還有相關(guān)的時間 date() time()

now()獲取系統(tǒng)當(dāng)前日期和時間，如：2015-12-12 22：23：34

time()獲取系統(tǒng)的時間，如：22：23：34不顯示當(dāng)前日期

date()獲得系統(tǒng)的日期，如：2015-12-12

Private Sub Command1_Click()

MsgBox Now()

MsgBox Time()

MsgBox Date

End Sub

vb.net獲取年，月，日，時，分，秒

不是 有 函數(shù)嘛？

now() 就是 吧

取得 后 再 分離出你所需的，分別賦值 就行了，當(dāng)然 還是 有 函數(shù)的

網(wǎng)站名稱：關(guān)于vb.net獲取動態(tài)時間的信息
鏈接地址：http://www.chinadenli.net/article18/hihidp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、網(wǎng)站設(shè)計、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站制作、App設(shè)計、靜態(tài)網(wǎng)站

廣告

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