急急急 请教VB高手

Private Sub Command1_Click()
Dim a As Date
a = Now
MsgBox a
End Sub

给你详细解释

1.Cdate(日期表达式)
将日期表达式转换成日期类型的数据。
日期表达式是任何可以解释成日期的表达式，包含日期文字，可以看作日期的字符串以及从函数返回的日期。
比如：myDate = CDate("99-5-20") ，这样的日期表达式必须加双引号，否则结果不可预料。
CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。

2.Now()
返回当前计算机系统设置的日期和时间。

3.Year(日期表达式)
返回表示年份的整数。
比如：Year("00-6-15") = 2000

4.Month(日期表达式)
返回 1 到 12 之间的整数，表示一年中的某月。
比如：Month("00-6-15") = 6

5.DateAdd(interval, number, date)
返回一个日期，这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。

DataAdd 函数参数 参数 说明

interval 字符串表达式，是所要加上去的时间间隔的单位。
number 数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 日期表达式，这一日期还加上了时间间隔。

interval 参数设定值 值 说明
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟