'エラーのクリア
Err.Clear

（処理）

'エラーのチェック
If Err.Number <> 0 Then
    （エラーのときの処理）
    Err.Clear
End If

'*****************************************
'YYYYMMDDHHNNSS形式へのフォーマット
'VBScriptにFormat関数が無いため
'*****************************************
Function FormatYYYYMMDDHHNNSS(dateK)
On Error Resume Next
    '日付として正しいかチェックする
    If Not IsDate(dateK) Then
        FormatYYYYMMDDHHNNSS = ""
    Else
        '月日が1桁でも0を付加する
        strYYYY = Year(dateK)
        strMM = Right("0" & Month(dateK), 2)
        strDD = Right("0" & Day(dateK), 2)
        strHH = Right("0" & Hour(dateK), 2)
        strNN = Right("0" & Minute(dateK), 2)
        strSS = Right("0" & Second(dateK), 2)
       
        FormatYYYYMMDDHHNNSS = strYYYY & strMM & strDD & strHH & strNN & strSS
    End If
End Function