Windows > WSH > タイムスタンプ文字列作成

バッチでログ処理などを行う際によく使う、タイムスタンプ文字列の生成。

コード例

Option Explicit

Sub ParseTime(vNow, rYear, rMonth, rDay, rHour, rMin, rSec)
    rYear = CStr(Year(vTime))
    rMonth = Right("0" & CStr(Month(vTime)), 2)
    rDay = Right("0" & CStr(Day(vTime)), 2)
    rHour = Right("0" & CStr(Hour(vTime)), 2)
    rMin = Right("0" & CStr(Minute(vTime)), 2)
    rSec = Right("0" & CStr(Second(vTime)), 2)
End Sub

' タイムスタンプの取得
Dim vTime
vTime = Now

Dim vYear, vMonth, vDay, vHour, vMin, vSec
Call ParseTime(vTime, vYear, vMonth, vDay, vHour, vMin, vSec)

Call Wscript.Echo(vYear & "/" & vMonth & "/" & vDay & " " & vHour & ":" & vMin & ":" & vSec)

---

最終更新日 : [2011-04-15]