Now是個(gè)日期類型(Date)的變量,占用8個(gè)字節(jié),你必須這樣定義:

創(chuàng)新互聯(lián)專注于興山網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供興山營(yíng)銷型網(wǎng)站建設(shè),興山網(wǎng)站制作、興山網(wǎng)頁(yè)設(shè)計(jì)、興山網(wǎng)站官網(wǎng)定制、成都小程序開(kāi)發(fā)服務(wù),打造興山網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供興山網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
Dim?臨時(shí)時(shí)間(500)?As?Date
臨時(shí)時(shí)間(0)?=?Now
臨時(shí)時(shí)間(1)?=?Now
轉(zhuǎn)換成字符型也很容易:
MsgBox(Now.ToString)
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ò)
將時(shí)間轉(zhuǎn)換為指定的字符串格式用:Now.ToString("yyyyMMddHHmmss")就Ok了。
例如:年份用小寫yyyy(大寫不識(shí)別),大寫MM識(shí)別為月份,小寫mm識(shí)別為分鐘,日期天為大寫DD(小寫不識(shí)別),
小時(shí)大寫HH識(shí)別為24小時(shí)制,小寫hh識(shí)別為12小時(shí)制,秒用小寫ss(大寫不識(shí)別)
補(bǔ)充:Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z(yǔ)言。
其在調(diào)試時(shí)是以解釋型語(yǔ)言方式運(yùn)作,而輸出為EXE程序是是以編譯型語(yǔ)言方式運(yùn)作。
可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本,增強(qiáng)了對(duì)面向?qū)ο蟮闹С帧4蠖嗟腣B.Net程序員使用Visual Studio .Net作為IDE(integrated development environment).SharpDevelop是另一種可用的開(kāi)源的IDE。
VB.Net需要在.Net Framework平臺(tái)上才能執(zhí)行。
要把字符串 "20170901" 轉(zhuǎn)換成字符串 "2017/0901"
可以直接插入一個(gè)斜杠,例如:
dim s as string="20170901"
s = Microsoft.VisualBasic.Left(s,4) "/" Mid(s,5)
MsgBox(s)
語(yǔ)句:clsSQL.subSetParameters(":WORK_DATE", m_clsDB.sFncDrRead(pdtrData, "FileDate"))
可以改為;
語(yǔ)句:clsSQL.subSetParameters(":WORK_DATE", Microsoft.VisualBasic.Left(m_clsDB.sFncDrRead(pdtrData, "FileDate",4) "/" Mid(m_clsDB.sFncDrRead(pdtrData, "FileDate",5)))
在你對(duì)日期/時(shí)間進(jìn)行格式化時(shí),控制面板中的地區(qū)與語(yǔ)言選項(xiàng)部分的設(shè)置會(huì)影響你所得到的結(jié)果。那些設(shè)置用來(lái)初始化DateTimeFormatInfo對(duì)象,這個(gè)對(duì)象與當(dāng)前線程的文化有關(guān),并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時(shí)間變量dateTimeInfo并將其值設(shè)為當(dāng)前日期/時(shí)間。然后,我再定義字符串變量strMonth并將dateTimeInfo的值轉(zhuǎn)換為"帶長(zhǎng)時(shí)間的完整日期/時(shí)間"格式下的字符串。
下面是一個(gè)標(biāo)準(zhǔn)日期格式說(shuō)明符列表:
d:短日期
D:長(zhǎng)日期
t:短時(shí)間
T:長(zhǎng)時(shí)間
f:帶短時(shí)間的完整日期/時(shí)間
F:帶長(zhǎng)時(shí)間的完整日期/時(shí)間
g:帶短時(shí)間的一般日期/時(shí)間
G:帶長(zhǎng)時(shí)間的一般日期/時(shí)間
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分類日期/時(shí)間
u:國(guó)際可分類日期/時(shí)間
U:帶長(zhǎng)時(shí)間的完整日期/時(shí)間。(此格式與F相同,但它用于國(guó)際GMT時(shí)間。)
Y或y:年-月
給你一個(gè)例子,里邊包含了幾種不同格式轉(zhuǎn)換成標(biāo)準(zhǔn)的日期時(shí)間格式;
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' 01/09/2001 00:00:00
Dim MyDateTime1 As DateTime = DateTime.Parse("Sep 2001")
' 05/09/2001 14:15:33
Dim MyDateTime2 As DateTime = DateTime.Parse("Wed 5 September 2001 14:15:33")
' 01/09/2005 00:00:00
Dim MyDateTime3 As DateTime = DateTime.Parse("5,9,01")
' 09/05/2001 14:15:33
Dim MyDateTime4 As DateTime = DateTime.Parse("5/9/2001 14:15:33")
' 當(dāng)前系統(tǒng)日期 14:15:00
Dim MyDateTime5 As DateTime = DateTime.Parse("2:15 PM")
Dim MyInfo As String = MyDateTime1.ToString()
MyInfo += vbCrLf + MyDateTime2.ToString()
MyInfo += vbCrLf + MyDateTime3.ToString()
MyInfo += vbCrLf + MyDateTime4.ToString()
MyInfo += vbCrLf + MyDateTime5.ToString()
MessageBox.Show(MyInfo, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
End Class
文章名稱:vb.net日期轉(zhuǎn)字符串,vb字符串轉(zhuǎn)日期格式
網(wǎng)站地址:http://chinadenli.net/article49/dsspehh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站設(shè)計(jì)、商城網(wǎng)站、搜索引擎優(yōu)化、定制開(kāi)發(fā)、網(wǎng)頁(yè)設(shè)計(jì)公司、軟件開(kāi)發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)