vb.net如何獲取時(shí)間格式?

可以訪問(wèn)注冊(cè)表HKEY_CURRENT_USER\Control Panel\International下面的一些鍵值

十余年的湖南網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。網(wǎng)絡(luò)營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整湖南建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)公司從事“湖南網(wǎng)站設(shè)計(jì)”,“湖南網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

如sShortDate鍵值表示的是短日期sLongDate表示的是長(zhǎng)日期

中文下的短日期是 yyyy-M-d

中文下的長(zhǎng)日期是 yyyy'年'M'月'd'日'

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

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

先加入控件 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中用label顯示時(shí)間

Label1.Text?=?"12時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?hh:mm:ss")

Label2.Text?=?"24時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?HH:mm:ss")

Label3.Text?=?"UTC時(shí)演示:"?+?System.DateTime.UtcNow.ToString("yyyy-MM-dd?HH:mm:ss")

Label4.Text?=?"時(shí)間為不補(bǔ)0:"?+?Now.ToString("yyyy-MM-dd?H:m:s")

Label5.Text?=?"時(shí)間戳:"?+?CLng(System.DateTime.UtcNow.Subtract(New?Date(1970,?1,?1,?0,?0,?0)).TotalMilliseconds).ToString

vb.net 如何獲取時(shí)間？

兩種方式自己選用

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