|
▼SK63 さん:
修正です(開始日を含む場合はSD-1)ですね)
>▼Runa さん:
>>よろしくお願いします。
>>
>>現在、スケジュール管理の為にExcelを使用しています。
>>・工数を入力
>>・作業開始日を入力
>>・作業終了予定日が表示される
>>・但し、土日祝は換算しない
>>(工数が3日で、作業開始日が金曜なら、
>> 翌週火曜日の日付が作業終了予定日に表示されるようにしたい)
>
Sub test()
Dim SD As Integer, i As Integer
Dim pDay As Integer, intDay As Integer
Dim dayTmp As Date
SD = InputBox("工数")
dayTmp = InputBox("作業開始日")
For i = 1 To SD
intDay = Weekday(dayTmp, vbSunday) ' 曜日コード
Debug.Print (dayTmp & " " & intDay)
If ((intDay = 1) Or (intDay = 7)) Then
pDay = pDay + 1
End If
dayTmp = dayTmp + 1
Next i
Range("A1") = dayTmp + pDay - 1 '修正 結果です
End Sub
|
|