包含vbnet取時間戳的詞條

vb.net中怎么獲取日期中的年月日時分秒

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當前日期字符串

創(chuàng)新互聯(lián)公司專注于企業(yè)網(wǎng)絡(luò)營銷推廣、網(wǎng)站重做改版、豐澤網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計、電子商務(wù)商城網(wǎng)站建設(shè)、集團公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為豐澤等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當前日期轉(zhuǎn)換成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當前日期是星期幾

Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)（星期1與當前星期幾相差的天數(shù)）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '獲取當前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '獲取當前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '獲取當前日期是幾號

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

vb.net 如何獲取時間？

兩種方式自己選用

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上的國際標準時間嗎。

先加入控件 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") '取美國標準技時院時間

If NoSrv Or TimeFromNet = "" Then

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

Else

NetTime("time.nist.gov")

If TimeFromNet = "" Then

MsgBox("網(wǎng)絡(luò)標準時間服務(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ò)標準時間服務(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 如何將時間戳轉(zhuǎn)化為date類型

Dim unix As DateTime = #1/1/1970#

unix = unix.AddSeconds(CDbl("時間戳"))

MsgBox(unix)

'--------------------

百度VB2010(VB.NET)吧建設(shè)發(fā)展中,需要你的支持和幫助!!!

快加入我們吧!發(fā)表你的疑問,經(jīng)驗,程序,分享..

讓我們共同進步!

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

Sub?gettime()

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

MsgBox?nowtime

End?Sub

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

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

效果如下

vb 時間戳轉(zhuǎn)換成時間

VB可使用DateAdd 函數(shù)來獲取加上了一段時間間隔后的日期和時間數(shù)據(jù)。

DateAdd 函數(shù)，返回包含一個日期的 Variant

(Date)，這一日期還加上了一段時間間隔。

代碼實例：

Private Sub Command1_Click()

Dim D As Date

Dim Sj As Long

Sj = InputBox("輸入秒數(shù)：", Sj)

D = DateAdd("s", Sj, #1/1/1970#)

Debug.Print D

End Sub

文章名稱：包含vbnet取時間戳的詞條
鏈接分享：http://m.jiaotiyi.com/article/dsiehsd.html