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

2025-01-31 09:07:23
推荐回答(4个)
回答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

回答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

回答3:

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

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

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

回答4:

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