Excel VBA質問箱 IV

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

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


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

13420 / 76738

←次へ　｜　前へ→


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

SK63 - 11/4/20(水) 19:52 -


	引用なし

	パスワード

▼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)　' 曜日コード
　　If ((intDay = 1) Or (intDay = 7)) Then
　　　 pDay = pDay + 1
　　End If
　　　dayTmp = dayTmp + 1
　Next i

Range("A1") = dayTmp + pDay’結果です

End Sub

0 hits

▼

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