Excel 2010 VBA 入门 051 获取和设置计算机中的当前日期

示例

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函数