Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13487 / 76807

←次へ　｜　前へ→


	【68825】Re:日付計算処理について

SK63 - 11/4/20(水) 21:47 -


	引用なし

	パスワード

▼SK63 さん：
修正です（開始日を含む場合はＳＤ-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

1 hits

▼

【68821】日付計算処理について Runa 11/4/20(水) 17:24