Dim a As String
創(chuàng)新互聯(lián)憑借在網(wǎng)站建設、網(wǎng)站推廣領域領先的技術能力和多年的行業(yè)經(jīng)驗,為客戶提供超值的營銷型網(wǎng)站建設服務,我們始終認為:好的營銷型網(wǎng)站就是好的業(yè)務員。我們已成功為企業(yè)單位、個人等客戶提供了網(wǎng)站設計、網(wǎng)站建設服務,以良好的商業(yè)信譽,完善的服務及深厚的技術力量處于同行領先地位。
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個函數(shù)是用于把字符型變量轉換成日期型變量,
字符型變量(本例中的a)如果不是標準的日期格式,請先用字符串函數(shù)處理成標準日期格式再用CDate函數(shù)進行轉換,否則會報錯
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當前日期轉換成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)
在你對日期/時間進行格式化時,控制面板中的地區(qū)與語言選項部分的設置會影響你所得到的結果。那些設置用來初始化DateTimeFormatInfo對象,這個對象與當前線程的文化有關,并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時間變量dateTimeInfo并將其值設為當前日期/時間。然后,我再定義字符串變量strMonth并將dateTimeInfo的值轉換為"帶長時間的完整日期/時間"格式下的字符串。
下面是一個標準日期格式說明符列表:
d:短日期
D:長日期
t:短時間
T:長時間
f:帶短時間的完整日期/時間
F:帶長時間的完整日期/時間
g:帶短時間的一般日期/時間
G:帶長時間的一般日期/時間
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分類日期/時間
u:國際可分類日期/時間
U:帶長時間的完整日期/時間。(此格式與F相同,但它用于國際GMT時間。)
Y或y:年-月
名稱欄目:vb.net日期轉換 vb中日期格式轉換成純數(shù)字
網(wǎng)站地址:http://muchs.cn/article8/doeodop.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設計、服務器托管、網(wǎng)站收錄、電子商務、網(wǎng)站導航、營銷型網(wǎng)站建設
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)