Dim a As String
創(chuàng)新互聯(lián)主營承德網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,APP應(yīng)用開發(fā),承德h5微信平臺小程序開發(fā)搭建,承德網(wǎng)站營銷推廣歡迎承德等地區(qū)企業(yè)咨詢
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個函數(shù)是用于把字符型祥李鬧變量轉(zhuǎn)換成日期型變擾腔量,
字符型變量(本例中的a)如果不是標準的日謹罩期格式,請先用字符串函數(shù)處理成標準日期格式再用CDate函數(shù)進行轉(zhuǎn)換,否則會報錯
VB使用 CDate 函數(shù)將字符串轉(zhuǎn)換成 Date。
CDate 函數(shù)示例
本示例使用 CDate 函數(shù)將字符串轉(zhuǎn)換成
Date。一般說來,字符串格式弊廳雹的日期與時間伏攔硬編碼(如示例中所示)并不好。較好的做法是使用日期原義表達式和時間的原義表達式(如
#2/12/1969#,#4:45:23 PM#)。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定義日期。
MyShortDate = CDate(MyDate) ' 轉(zhuǎn)換為 Date 數(shù)據(jù)類型。
MyTime = "4:35:47 PM" ' 定義時間。
MyShortTime = CDate(MyTime) ' 轉(zhuǎn)換為 Date 數(shù)租帆據(jù)類型。
給你一個例子,里邊包胡鉛含了幾種不同格式轉(zhuǎn)換成標褲前好準的日期時間格式;
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")
' 當前系悔橘統(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.啟動VB6.0并創(chuàng)建一個新的標準exe項目。
2.在窗體上繪制命令按鈕的一個版本,名稱為Command1。
3.雙擊命令按鈕以進入代碼窗口。
4.假設(shè)調(diào)御粗悉用了一個函數(shù)a,從1到100,可以選擇計數(shù)循環(huán),下一條語句。
5.編寫命令按鎮(zhèn)乎鈕的單擊事件。
6.按F5運行測試,就凳漏完成了。
網(wǎng)頁標題:vb點虐
字串轉(zhuǎn)日期 vba 字符轉(zhuǎn)日期
文章起源:http://chinadenli.net/article38/ddpgisp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計、建站公司、網(wǎng)站內(nèi)鏈、用戶體驗、動態(tài)網(wǎng)站、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)