1.获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】

Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
 Range("B1").Select
 ActiveCell.FormulaR1C1 = "=year"
 Range("B1").Select
 ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
 Range("C1").Select
 ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
 Range("D1").Select
 ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
 Range("D2").Select
End Sub

获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】

Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=year"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
    Range("D2").Select
End Sub

示例

Option Explicit

Sub 获取设置日期()
    Dim dDate1 As Date
    Dim dDate2 As Date
    
    '获取日期
    dDate1 = Date
    Debug.Print "当前日期为：" & dDate1
    
    '设置日期
    Date = DateSerial(2013, 2, 1)
    '获取新日期
    dDate2 = Date
    Debug.Print "当前日期为：" & dDate2
    
    '恢复原日期
    Date = dDate1
    Debug.Print "当前日期为：" & dDate1
End Sub

Date函数和Date语句

    Date函数可以返回计算机中当前的日期，该函数不需要任何参数。而当Date作为语句时，可以更改当前计算机的日期。其语法为

Date=date

    其中，参数date为日期表达式。

DateSerial函数

    在VBA中，可以使用两个#围起来的表达式表示日期，如：#2/1/2013#。然而该表达式可能会由于计算机控制面板中区域设置的不同而导致VBA程序对日期的解释不同，从而造成错误。因而，在处理日期时，应尽量采用DateSerial函数生成一个日期表达式。DateSerial函数可以返回一个日期表达式，其语法如下：

DateSerial(year,month,day)

    其中，参数year、month和day分别代表年、月和日。参数year可以为0至9999的整数，当参数year小于100时，其表示的是1930年至2029年间的日期。若参数year设置为0～29
之间的数字，则表示的是2000年至2029年；若设为30～99间的数字，则表示的是1930年至1999年。当参数year大于100时，则表示的是实际的年，如101则表示101年。
    参数Month可以为-32768至32767的整数，其实质表示的是year参数所表示的年份的上一年的最后一个月的增量。如：year参数设置为1900，而month设置为0时，表示1899年的12月；当参数month设置为9时，表示的是在1899年12月的基础上增加9个月，即1900年9月；当参数month设置为-1时，则表示的是在1899年12月的基础上减少1个月，即1899年11月；当参数month设置为13时，则表示的是在1899年12月的基础上增加13个月，即为1901年1月。
    参数day可以为-32768至32767的整数，其实质表示的是year参数和month参数所表示的年月的上一个月的最后一天起的增量。如：year参数设置为1900年，month设置为1月，当参数day设置为0时，表示的是1900年1月的上一个月的最后一天，即1899年12月31日；当参数day设置为9时，表示的是在1899年12月31日的基础上增加9天，即1900年1月9日；当参数day设置为-1时，表示的是在1899年12月31日的基础减少1天，即1899年12月30日；当参数day设置为32时，表示的是在1899年1 2月31日的基础增加32天，即1900年2月1日。
    参数year、month和day可以组合成符合VBA日期定义范围内的任何日期。但当这3个参数所表示的日期超出VBA的日期范围时，则会出现如图所示的参数无效错误。

更改时间及日期的限制

    更改时间的权限。在Windows7系统中，对于账户有各种权限控制。Date语句更改日期时，可能会出现“拒绝访问”的错误，表示用户无权限更改，此时可以将账户权限更改为低。但一般情况下，请不要更改Windows系统的任何安全设置。

Time函数和Time语句

    与Date函数和Date语句相对应，Time函数可以返回当前计算机系统的时间，Time语句则可以设置当前计算机系统的时间，其语法为

Time=time

其中，参数time为时间表达式。

Now函数

    Now函数可以返回当前计算机系统的日期和时间，其值的实质为Date函数和Time函数相加的和。

VBA中日期的实质

    在VBA中，日期和时间表达式的实质是一个小数，其整数部分表示日期，而小数部分表示时间。当整数N转换为日期时，是以1899年12月3 0日为起点，增加(N大于0)或减少(N小于0)的N天。如使用转换函数CDate将数字1转换为日期时，则表示在1899年12月30日的基础上增加1天，即1899年1 2月31日。反之，将日期转换为数字时，则结果为被转换的日期与1899年12月30日相差的天数。
    将时间转换为数字时，实质是该时间据当天0点起所经过的时间占1天的比例。如9时1 2分31秒，距离当天0点共1 371 1秒，用13711除以86400（1天共86400秒），得到0. 15869212962963，该小数即表示9时12分31秒。