通过

Project.CurrentDate 属性 (Project)

  • 项目

获取或设置项目的当前日期。 可读/写 Variant 类型。

语法

expression。 CurrentDate

表达 一个代表 Project 对象的变量。

备注

当项目打开时，项目会自动设置项目的当前日期等于系统日期。

示例

下例将活动项目的当前日期设置为上星期一。

Sub SetCurrentDateToPreviousMonday()
    ' Loop while the current date is not Monday. 
    Do While WeekDay(ActiveProject.CurrentDate) <> pjMonday 
        ' Subtract one day from the current date. 
        ActiveProject.CurrentDate = _ 
            DateSerial(Year(ActiveProject.CurrentDate), _ 
            Month(ActiveProject.CurrentDate), _ 
            Day(ActiveProject.CurrentDate - 1)) 
    Loop
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。