MPP VBAでカスタマイズされたカレンダーを作成し、2つの日付間の仕事の日差を取る方法は？

Question

Microsoft ProjectでVBAでカレンダーを作成（またはMPPカレンダーから読み込み）し、2つの日付の間のカレンダーを使用して作業日の差（期間）を計算する方法はありますか？

Answer 1

Microsoft Projectは3つの引数を取る関数DateDifferenceを持っているが日付、終了日、およびカレンダーです。カレンダーの文字列名ではなく、Calendarオブジェクトに渡す必要があります。戻り値は作業時間（分）です。したがって、時間を得るために適切な量、通常480（8時間* 60分）で割ります。

たとえば、プロジェクトカレンダーに基づいて、12月の就業日数が表示されます。

Application.DateDifference("12/1/17","12/31/17", ActiveProject.Calendar)/480 

ここには、関連するMSDNの記事があります。

Answer 2

カレンダーは、標準（月曜日から金曜日まで、EG 5日間の作業週）の場合のように、あなたは、独自の関数を作成することができます。開始：

Function Workdays(Start_Date As Date, End_Date As Date) AS Integer 
    Dim Temp_Delta As Integer, X As Integer, Y As Integer 
    Temp_Delta = End_Date - Start_Date 
    Temp_Delta = 5 * (Temp_Delta \ 7) 
    X = Weekday(End_Date, vbMonday) 
    Y = Weekday(Start_Date, vbMonday) 
    If X > 5 Then X = 5 
    If Y > 5 Then Y = 5 
    Temp_Delta = Temp_Delta + X - Y 
    Workdays = Temp_Delta 
End Function