次の方法で共有

Project.CurrentDate プロパティ (Project)

  • [アーティクル]

プロジェクトの現在の日付を取得または設定します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 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 のサポートおよびフィードバックを参照してください。