Question

VB 日期变量的问题（date的赋值）

将变量 a（a=2009） b（b=2） c（c=11） 分别作为年月日，组成date变量的日期(2009-2-11)。 怎样才能做到？

Answer 1

a=2009 b=2 c=11 Dim d as Date d=DateSerial(a,b,c) Debug.Print d 这个是标准做法，函数DateSerial： 语法： DateSerial(年, 月, 日)

Answer 2

VB6.0中使用双#号将日期型字符串赋值给Date数据类型。
Date 数据类型：
Date 和 Time 值既可包含在特定的 Date 数据类型中，又可包含在 Variant 变量中。一般的 Date 特性适用于这两种类型。
实例例代码

1
2
3
4
5

Private Sub Command1_Click()
Dim MyDate As Date
MyDate = #2/12/1969# ' 指定一日期。
Debug.Print MyDate
End Sub

Answer 3

Private Sub Form_Click() a = 2009 b = 2 c = 11 d = a & "-" & b & "-" & c Print d, TypeName(CDate(d)) End Sub