WSH (Windows Scripting Host)

WSHのエラートラップ
VB6のようなON ERROR GOTO 「ラベル名」や、.netのようなTry 〜 Catchが
使えないので、必要な箇所でエラーコードを見張る。
'エラーのクリア
Err.Clear
(処理)
'エラーのチェック
If Err.Number <> 0 Then
(エラーのときの処理)
Err.Clear
End If
日付型をYYYYMMDDHHNNSS形式の文字列に変換する関数
VBScriptにはFormat関数が無いため自作の必要がある
'*****************************************
'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
|