回答編集履歴
1
コード修正
test
CHANGED
|
@@ -20,9 +20,14 @@
|
|
|
20
20
|
Wscript.Quit
|
|
21
21
|
End If
|
|
22
22
|
|
|
23
|
+
Dim yyyy
|
|
24
|
+
Dim mm
|
|
25
|
+
Dim dd
|
|
23
26
|
Dim checkDate
|
|
27
|
+
yyyy = Mid(inDate,1,4)
|
|
28
|
+
mm = Mid(inDate,5,2)
|
|
29
|
+
dd = Mid(inDate,7,2)
|
|
24
|
-
checkDate =
|
|
30
|
+
checkDate = yyyy &"/" & mm &"/" & dd
|
|
25
|
-
|
|
26
31
|
If IsDate(checkDate) = False Then
|
|
27
32
|
MsgBox "日付が正しくありません。"
|
|
28
33
|
Wscript.Quit
|