vb點虐 獲取年，月，日，時，分，秒

不是 有 函數(shù)嘛？

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名申請、網(wǎng)絡(luò)空間、營銷軟件、網(wǎng)站建設(shè)、太和網(wǎng)站維護、網(wǎng)站推廣。

now() 就是 吧

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

vb點虐 中怎么獲取日期中的年月日時分秒

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

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

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當(dāng)前日期是星期幾

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

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

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

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

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

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

Dim Yourday As DateTime = MyToday.Add(MyAdd)

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

VB.NET中用label顯示時間

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

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

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

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

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