Application.DateAdd 方法 (Project)

傳回依指定工期排在另一個日期後面之自動排程任務的日期和時間。

語法

expressionDateAdd( _StartDate_, _Duration_, _Calendar_ )

expression 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
StartDate 必要 Variant 要新增工期的原始日期。
Duration 必要 Variant 要新增到開始日期的工期。
Calendar 選用 Object 資源、任務或基準行事曆物件。 預設值為使用中專案的行事曆。

傳回值

Variant

註解

若要將工期新增至手動排程任務的日期,而該工作使用可包含非工作時間的有效行事曆,請使用 EffectiveDateAdd 屬性。

範例

以下範例顯示一個三天自動排程任務的完成日期,該任務開始於 7/11/07 的 8 A.M.。

Sub FindFinishDate() 
 MsgBox Application.DateAdd(StartDate:="7/11/07 8:00 AM", Duration:="3d") 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應