システム開発 備忘録





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



Copyright (C) 2009- station-t.com All Rights Reserved , Link Free