vbscript
Set objRE = New RegExp '書式設定 objRE.Pattern = "\d\d\d\d/\d+/\d+" myVal = objRE.Test(入力日付値) If Not myVal Then 書式外の処理 End IF
'入力値が少数かどうかチェック IF StrComp(CDbl(入力値A),Clng(入力値A)) <> 0 then 判定後処理 END IF
Set objRE = New RegExp '書式設定 objRE.Pattern = "\d\d\d\d/\d+/\d+" myVal = objRE.Test(入力日付値) If Not myVal Then 書式外の処理 End IF
'入力値が少数かどうかチェック IF StrComp(CDbl(入力値A),Clng(入力値A)) <> 0 then 判定後処理 END IF