vb.net 獲取互聯(lián)網(wǎng)的北京時(shí)間

Public?Function?GetBeijingTime()?As?DateTime

公司主營業(yè)務(wù)：成都做網(wǎng)站、網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出藤縣免費(fèi)做網(wǎng)站回饋大家。

Dim?dt?As?DateTime

Dim?wrt?As?WebRequest?=?Nothing

Dim?wrp?As?WebResponse?=?Nothing

Try

wrt?=?WebRequest.Create("")

wrp?=?wrt.GetResponse()

Dim?html?As?String?=?String.Empty

Using?stream?As?Stream?=?wrp.GetResponseStream()

Using?sr?As?New?StreamReader(stream,?Encoding.UTF8)

html?=?sr.ReadToEnd()

End?Using

End?Using

Dim?tempArray?As?String()?=?html.Split(";"c)

For?i?As?Integer?=?0?To?tempArray.Length?-?1

tempArray(i)?=?tempArray(i).Replace(vbCr??vbLf,?"")

Next

Dim?year?As?String?=?tempArray(1).Split("="c)(1)

Dim?month?As?String?=?tempArray(2).Split("="c)(1)

Dim?day?As?String?=?tempArray(3).Split("="c)(1)

Dim?hour?As?String?=?tempArray(5).Split("="c)(1)

Dim?minite?As?String?=?tempArray(6).Split("="c)(1)

Dim?second?As?String?=?tempArray(7).Split("="c)(1)

dt?=?DateTime.Parse(year??"-"??month??"-"??day??"?"??hour??":"??minite??":"??second)

Catch?generatedExceptionName?As?WebException

Return?DateTime.Parse("2011-1-1")

Catch?generatedExceptionName?As?Exception

Return?DateTime.Parse("2011-1-1")

Finally

If?wrp?IsNot?Nothing?Then

wrp.Close()

End?If

If?wrt?IsNot?Nothing?Then

wrt.Abort()

End?If

End?Try

Return?dt

End?Function

如何用VB獲取北京時(shí)間

now() 可以獲取當(dāng)前的時(shí)間。

可以使用 print now() 進(jìn)行測試。輸出當(dāng)前時(shí)間。

想用文本保存。

那就：

open app.path "\time.txt" for output as #1

print #1,now()

close

用VB怎么獲取標(biāo)準(zhǔn)北京時(shí)間啊？？

可以獲取中國科學(xué)院國家授時(shí)中心的標(biāo)準(zhǔn)時(shí)間（即中國北京時(shí)間）。

你可以借用vb的inet控件從中科院的網(wǎng)站上獲取，中科院網(wǎng)站是：

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

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

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

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

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

Private Sub Command1_Click()

MsgBox Now()

MsgBox Time()

MsgBox Date

End Sub

vb怎么獲取北京時(shí)間

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)容對你有幫助