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运行测试,就凳漏完成了。