Question

VB中怎样为一个日期型的数据赋值

Dim D As Data
D = #2/3/2009#
print D
就是想定义一个日期型变量，给它赋值然后输出，为什么会提示“对象变量或width块变量未设置”，怎么写才是正确的呢？

Answer 1

在VB6中，对Date类型的变量赋值常用的方法有四种，见以下示例代码

Option Explicit

Private Sub Form_Click()
    Dim dt As Date
    '方式1： 使用系提供的Date函数
    dt = Date
    Print dt
    
    '方式2： 使用系提供的Now函数
    dt = Now
    Print dt
    
    '方式3： 使用字符串
    dt = "2015-8-23"
    Print dt
    
    '方式4： 用#封闭的日期
    dt = #9/3/2015#
    Print dt
End Sub

Answer 2

VB6.0中使用双#号将日期型字符串赋值给Date数据类型。

Date 数据类型：

Date 和 Time 值既可包含在特定的 Date 数据类型中，又可包含在 Variant 变量中。一般的 Date 特性适用于这两种类型。

实例例代码

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

Answer 3

程序代码是这样的,已经验证OK!!!

Private Sub Command1_Click()
Dim D As Date
D = #2/3/2009#
Print D
End Sub

你自己试试,把上面的 data 改成 date 就可以了!!!

Answer 4

第一行的 Data 应改为 Date
即 Dim D as Date