VBSで日付妥当性チェック（yyyymmdd）

Question

VBSを使用して、日付の妥当性チェックを行いたいと思っています。
文字列の日付（yyyymmdd）が日付として正しいかチェックを行います。

○試したこと
①isDate関数を試しましたが、日付と認識されず常に「False」で返却されます。
②「yyyy」「mm」「dd」でスプリットし、「/」を結合、その後isDate関数を使用しました。動作しますが、「mm」や「dd」を1桁で入れられた場合が危険に感じます。

○質問
②より良い方法はないのでしょうか？
日付の入力はInputBoxを予定しています。
また「yyyy/mm/dd」の入力への仕様変更はできないです。

○ソースコード

Dim inDate
inDate = InputBox("日付の入力（yyyymmdd）")

If IsNull(inDate) or inDate= "" Then
  MsgBox "未入力です。"
  Wscript.Quit
End If 

'①isDate関数
'If IsDate(inDate) = False Then
'  MsgBox "未入力です。"
'  Wscript.Quit
'End If 

'②スプリット・isDate関数
Dim yyyy
Dim mm
Dim dd
Dim checkDate
yyyy = Mid(inDate,1,4)
mm = Mid(inDate,5,2)
dd = Mid(inDate,7,2)
checkDate = yyyy &"/" & mm &"/" & dd
If IsDate(checkDate) = False Then
  MsgBox "日付が正しくありません。"
  Wscript.Quit
End If 

Answer 1

②「yyyy」「mm」「dd」でスプリットし、「/」を結合、その後isDate関数を使用しました。動作しますが、「mm」や「dd」を1桁で入れられた場合が危険に感じます。

「mm」や「dd」を1桁で入力するのを許可したら、例えば、
2022123
と入力されたとき、2022/1/23 なのか 2022/12/3 なのか判断できません。
ですので、8桁入力は必須の仕様にすべきでしょう。

Dim inDate
inDate = InputBox("日付の入力（yyyymmdd）")

If IsNull(inDate) or inDate= "" Then
  MsgBox "未入力です。"
  Wscript.Quit
End If 

If Len(inDate) <> 8 Then
  MsgBox "8桁(yyyymmdd)で入力してください。"
  Wscript.Quit
End If 

Dim yyyy
Dim mm
Dim dd
Dim checkDate
yyyy = Mid(inDate,1,4)
mm = Mid(inDate,5,2)
dd = Mid(inDate,7,2)
checkDate = yyyy &"/" & mm &"/" & dd
If IsDate(checkDate) = False Then
  MsgBox "日付が正しくありません。"
  Wscript.Quit
End If 

Comments

[退会済みユーザー]

回答ありがとうございます。
頂いたスクリプトをダブルクリックし、「20220630」を入力して実行したところ、下記エラーが発生しました。
解決方法をご存知でしたらご教示ください。

行 ：16
文字： 1
エラー：型が一致しません。：'Format'
コード：800A000D
ソース：Microsoft VBScript 実行時エラー

[hatena19]

VBS ではFormat関数は使えないんですね。
なら、質問のコードのようにMidで分割してください。
回答のコードを修正しておきます。

[退会済みユーザー]

ありがとうございます。
Midで分割するようにします。