如：
Dim d As Date
d = CDate("2011-12-1")本回答被提问者采纳
使用 IsDate 函数，可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字，以及落入可接受的日期范围内的数值。当转换一个数字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。
CDate 依据系统上的国别设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。另外，长日期格式，若包含有星期的字符串，也不能被识别。
vb 如何将文本格式的日期赋值给一个date变量
date变量 = cdate(文本格式日期)如：Dim d As Date d = CDate("2011-12-1")
VB中如何通过在文本框中输入时间日期然后直接赋值给系统时间日期,从而...
If IsDate(Text1.Text) Then '设置系统日期和时间 Date = Format(CDate(Text1), "yyyy-mm-dd")Time = Format(CDate(Text1), "hh:mm:ss")Else MsgBox "输入时间错误！"End If End Sub 一般的，使用Form_Load初始化文本框（可选的）：Private Sub Form_Load()Text1.Text = Now End Su...
vb!如何把输入的日期和时间整合成一个时间变量?
Option Explicit Dim strtime As Date Dim strdate As Date Private Sub Command1_Click()On Error GoTo err_do '错误处理 Dim y, m, d, n As Integer Dim h As Integer Dim total As Long y = Format(CDate(Text2.Text), "yyyy") - Format(strdate, "yyyy") '多出的年份 m...
VB把当前日期赋值给 字符串变量
可以用 Format(Date(),"MM\/DD\/YYY") 函数转换，具体格式根据需要决定...参考如下：MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。Dim MyTime, MyDate, MyStr MyTime = #17:04:23 MyDate = #January 27, 1993 ' 以系统设置的长时间格式返回当前系统时间。MyStr = Format...
vb里面怎么把当前年月日合成一个唯一数字
VB会自动判断出这是个日期格式的字符串，然后把它赋值给一个日期型变量时，VB会自动进行转换的。转换后的日期格式是由你的电脑设置的日期格式决定的，比如你的电脑如果设的是2014\/9\/910：00：00，那么你直接显示这个日期的话也就是这样的格式。如果要显示为2014-9-910：00：00，可以用Format函数，...
VB 日期变量的问题(date的赋值)
a=2009 b=2 c=11 Dim d as Date d=DateSerial(a,b,c) Debug.Print d 这个是标准做法，函数DateSerial： 语法： DateSerial(年, 月, 日)
VB中怎样为一个日期型的数据赋值
在VB6中，对Date类型的变量赋值常用的方法有四种，见以下示例代码 Option ExplicitPrivate Sub Form_Click() Dim dt As Date '方式1： 使用系提供的Date函数 dt = Date Print dt '方式2： 使用系提供的Now函数 dt = Now Print dt '方式3： 使用字符串 dt = "2015...
vb如何使用日期
数据类型 Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到 23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#) 扩起来，例如，#January 1, 1993# 。
vb字符串型的日期时间转数字型的
1、这个不用你操心的，VB会自动判断出这是个日期格式的字符串，然后把它赋值给一个日期型变量时，VB会自动进行转换的；2、可以用CDate函数转：sss = "09 Sep 2014 10:00:00"Dim mydate As Date mydate = sss nydate = CDate(sss) '这两种方式是一样的，VB会自动进行转换的 3、转换后...
vb语言中date变量怎么赋值,
)或 d = DateSerial(2016, 12, 28)或 d = Now '当前日期时间 d = Date '当前日期 d = Time '当前时间 d = Date + 1 '明天 d = Date + 2 '后天 d = Date - 1 '昨天 d = DateAdd("m", 3, Date) '三个月后 d = DateAdd("d", -10, Now) '10天前 ...
