不好意思，就剩下这么些分了，请大家继续帮我这个菜鸟

Question

我要给一个日期型的数据赋值该怎么做
Dim aa As Date
如何给aa赋值

Answer 1

输入形式为：‘ date1=#1-10-99#‘ date2=#10-1-00 13:20:50am#'VB自动将之转换为如下形式date1 = #1/10/1999#date2 = #10/1/2000 1:20:50 PM#Print date1, date2 '结果是 99-1-10 00-10-1 13:20:50

Answer 2

Date为日期型数据。它的变量存储为64位(8个字节)浮点数值形式，可以表示的日期范围从100年1月1日到9999年12月31日，而时间可以从0:00:00到23:59:59。任何可辨认的文本日期都可以赋值给Date变量。日期文字须以数字符号 (#) 扩起来。
Date 变量会根据计算机中的短日期格式来显示。时间则根据计算机的时间格式(12或24小时制)来显示。
当其他的数值类型要转换为 Date 型时，小数点左边的值表示日期信息，而小数点右边的值则表示时间。 

Answer 3

Date 变量存储为64 位（8 个字节）浮点数值形式，可以表示的日期范围从 0100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到 23:59:59。日期文字须以符号 # 扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。VB 接受许多种文字的日期和时间格式。要正确的使用日期型变量可参考下面的例子：Private Sub Form_Click()Dim date1 As DateDim date2 As DateDim m1 As ByteDim m2 As Byte'给日期型变量date1,date2赋值'注意：输入形式为：‘ date1=#1-10-99#‘ date2=#10-1-00 13:20:50am#'VB自动将之转换为如下形式date1 = #1/10/1999#date2 = #10/1/2000 1:20:50 PM#Print date1, date2 '结果是 99-1-10 00-10-1 13:20:50'利用Month()函数取date1,date2的月份'分别赋值给变量m1,m2m1 = Month(date1)m2 = Month(date2)Print m1, m2 '结果是 1 10End Sub根据计算机的时间格式（12 或 24 小时制）来显示时间。当其他的数值类型要转换为日期类型时，小数点左边的值表示日期信息，而小数点右边的值则表示时间。午夜为 0 而中午为 0.5。负整数表示 1899 年 12 月 30 日之前的Date。