Application.DateAdd 方法 (Project)

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

語法

expression。 DateAdd( _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 支援與意見反應。