Dim a As String

創(chuàng)新互聯(lián)主營(yíng)承德網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,APP應(yīng)用開(kāi)發(fā),承德h5微信平臺(tái)小程序開(kāi)發(fā)搭建,承德網(wǎng)站營(yíng)銷(xiāo)推廣歡迎承德等地區(qū)企業(yè)咨詢(xún)
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個(gè)函數(shù)是用于把字符型祥李鬧變量轉(zhuǎn)換成日期型變擾腔量,
字符型變量(本例中的a)如果不是標(biāo)準(zhǔn)的日謹(jǐn)罩期格式,請(qǐng)先用字符串函數(shù)處理成標(biāo)準(zhǔn)日期格式再用CDate函數(shù)進(jìn)行轉(zhuǎn)換,否則會(huì)報(bào)錯(cuò)
VB使用 CDate 函數(shù)將字符串轉(zhuǎn)換成 Date。
CDate 函數(shù)示例
本示例使用 CDate 函數(shù)將字符串轉(zhuǎn)換成
Date。一般說(shuō)來(lái),字符串格式弊廳雹的日期與時(shí)間伏攔硬編碼(如示例中所示)并不好。較好的做法是使用日期原義表達(dá)式和時(shí)間的原義表達(dá)式(如
#2/12/1969#,#4:45:23 PM#)。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定義日期。
MyShortDate = CDate(MyDate) ' 轉(zhuǎn)換為 Date 數(shù)據(jù)類(lèi)型。
MyTime = "4:35:47 PM" ' 定義時(shí)間。
MyShortTime = CDate(MyTime) ' 轉(zhuǎn)換為 Date 數(shù)租帆據(jù)類(lèi)型。
給你一個(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
1.啟動(dòng)VB6.0并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe項(xiàng)目。
2.在窗體上繪制命令按鈕的一個(gè)版本,名稱(chēng)為Command1。
3.雙擊命令按鈕以進(jìn)入代碼窗口。
4.假設(shè)調(diào)御粗悉用了一個(gè)函數(shù)a,從1到100,可以選擇計(jì)數(shù)循環(huán),下一條語(yǔ)句。
5.編寫(xiě)命令按鎮(zhèn)乎鈕的單擊事件。
6.按F5運(yùn)行測(cè)試,就凳漏完成了。
網(wǎng)頁(yè)標(biāo)題:vb點(diǎn)虐
字串轉(zhuǎn)日期 vba 字符轉(zhuǎn)日期
文章起源:http://chinadenli.net/article38/ddpgisp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計(jì)、建站公司、網(wǎng)站內(nèi)鏈、用戶(hù)體驗(yàn)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(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)
網(wǎng)頁(yè)設(shè)計(jì)公司知識(shí)