目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

72 / 277

←次へ　｜　前へ→

【220】修正点

Jaka - 07/12/5(水) 12:44 -


	引用なし

	パスワード

2008年のカレンダーを見て、勘違いしていたところです。

>　　　Case 5
>　　　　 FixHoliday = Array(3, 4, 5)
>　　　　 If Weekday(Nen & "/" & Tuki & "/" & FixHoliday(2)) = 1 Then
>　　　　　　ReDim Preserve FixHoliday(UBound(FixHoliday) + 1)
>　　　　　　FixHoliday(UBound(FixHoliday)) = Val(FixHoliday(2) + 1)
>　　　　 End If

　　　　↓

　　　Case 5
　　　　 FixHoliday = Array(3, 4, 5)
　　　　 If Nen >= 2007 Then
　　　　　　GWD = 3　　'変数 GWDの定義も追加しておいてください。型は、数値型
　　　　 Else
　　　　　　GWD = 1
　　　　 End If
　　　　 If Weekday(Nen & "/" & Tuki & "/" & 5) <= GWD Then
　　　　　　ReDim Preserve FixHoliday(UBound(FixHoliday) + 1)
　　　　　　FixHoliday(UBound(FixHoliday)) = 6
　　　　 End If

4,228 hits