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

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

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

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)前日期是幾號(hào)

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

Dim Yourday As DateTime = MyToday.Add(MyAdd)

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

vb.net中日期類(lèi)型怎么從字符串轉(zhuǎn)換

Dim a As String

Dim b As Date

a = "2016-11-18"

b = CDate(a)

本例中最主要的就是CDate()函數(shù)，這個(gè)函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量，

字符型變量（本例中的a）如果不是標(biāo)準(zhǔn)的日期格式，請(qǐng)先用字符串函數(shù)處理成標(biāo)準(zhǔn)日期格式再用CDate函數(shù)進(jìn)行轉(zhuǎn)換，否則會(huì)報(bào)錯(cuò)

vb.net計(jì)算兩個(gè)日期之間相差多少天

function getTime2Time($time1, $time2)

{

var time1 = arguments[0], time2 = arguments[1];

time1 = Date.parse(time1)/1000;

time2 = Date.parse(time2)/1000;

var time_ = time1 - time2;

return (time_/(3600*24));

}

document.write(getTime2Time('2016-08-02', '2016-07-02'));