重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
Dim a As String
創新互聯主營承德網站建設的網絡公司,主營網站建設方案,APP應用開發,承德h5微信平臺小程序開發搭建,承德網站營銷推廣歡迎承德等地區企業咨詢
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數,這個函數是用于把字符型祥李鬧變量轉換成日期型變擾腔量,
字符型變量(本例中的a)如果不是標準的日謹罩期格式,請先用字符串函數處理成標準日期格式再用CDate函數進行轉換,否則會報錯
VB使用 CDate 函數將字符串轉換成 Date。
CDate 函數示例
本示例使用 CDate 函數將字符串轉換成
Date。一般說來,字符串格式弊廳雹的日期與時間伏攔硬編碼(如示例中所示)并不好。較好的做法是使用日期原義表達式和時間的原義表達式(如
#2/12/1969#,#4:45:23 PM#)。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定義日期。
MyShortDate = CDate(MyDate) ' 轉換為 Date 數據類型。
MyTime = "4:35:47 PM" ' 定義時間。
MyShortTime = CDate(MyTime) ' 轉換為 Date 數租帆據類型。
給你一個例子,里邊包胡鉛含了幾種不同格式轉換成標褲前好準的日期時間格式;
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")
' 當前系悔橘統日期 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并創建一個新的標準exe項目。
2.在窗體上繪制命令按鈕的一個版本,名稱為Command1。
3.雙擊命令按鈕以進入代碼窗口。
4.假設調御粗悉用了一個函數a,從1到100,可以選擇計數循環,下一條語句。
5.編寫命令按鎮乎鈕的單擊事件。
6.按F5運行測試,就凳漏完成了。