回答編集履歴
1
記述の追加
test
CHANGED
|
@@ -26,9 +26,9 @@
|
|
|
26
26
|
|
|
27
27
|
For i = LBound(monthOfDay) To UBound(monthOfDay)
|
|
28
28
|
|
|
29
|
-
dayOfYear(i) = d
|
|
29
|
+
dayOfYear(i) = d
|
|
30
30
|
|
|
31
|
-
d = d + monthOfDay(i)
|
|
31
|
+
d = d + monthOfDay(i)
|
|
32
32
|
|
|
33
33
|
Next i
|
|
34
34
|
|
|
@@ -44,13 +44,13 @@
|
|
|
44
44
|
|
|
45
45
|
' 2行目のiMonth1-1は、dayOfYear配列の下限が0から始まっているため、
|
|
46
46
|
|
|
47
|
-
' 2行目のIIf式が、うるう年でiMonthが3月以降だったら+1にする。
|
|
47
|
+
' 2行目のIIf式が、うるう年でiMonthが3月以降だったら+1にする。**①**
|
|
48
48
|
|
|
49
49
|
tDay = (tDay + Int((iYear - 1) / 4) - Int(1000 / 4)) + _
|
|
50
50
|
|
|
51
|
-
(dayOfYear(iMonth - 1) + IIf(iYear Mod 4 = 0 And 3 <= iMonth, 1, 0)) + _
|
|
51
|
+
(dayOfYear(iMonth - 1) + IIf(iYear Mod 4 = 0 And 3 <= iMonth, 1, 0)) + _
|
|
52
52
|
|
|
53
|
-
(iDay)
|
|
53
|
+
(iDay)
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|