| |
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
|
|
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
