回答編集履歴
1
バグ修正
test
CHANGED
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
|
|
39
39
|
For Each ob In mf.Items
|
|
40
40
|
|
|
41
|
-
If ob.Start >
|
|
41
|
+
If ob.Start > (#7/1/2020# - 1) And ob.Start < (#7/7/2020# + 1) Then
|
|
42
42
|
|
|
43
43
|
strret = Format(ob.Start, "yyyy/mm/dd") & Space(3) _
|
|
44
44
|
|