【VBS】yyyymmddの形で当日日付を取得するコードサンプル（ゼロパディング）

VBScriptを使って、本日の日付を取得するサンプルです。

内容は大したこともありませんし、裏ワザ的なこともないベーシックなものですが、
ツールとして使えるシーンは多いです。

ケースとしては、Windows環境で、batと連携して使うことが多いです。
batは日付計算が不自由ですので、batからVBSを呼び出して、
戻り値を返す方法が一般的でしょう。

以下コードを実行すると、メッセージボックスで
「yyyymmdd」の形式で結果が表示されます。

VBS

Dim wkYear
Dim wkMonth
Dim wkDay

'年月日を取得します
wkYear=Year(Now())
wkMonth = Month(Now())
wkDay = Day(Now())

'1〜9月の場合、0を付与します。
If wkMonth < 10 Then
  wkMonth= "0" & wkMonth
End If

'1〜9日の場合、0を付与します。
If wkDay < 10 Then
  wkDay= "0" & wkDay
Else

msgbox wkYear & wkMonth & wkDay

end if

呼び出す場合は、msgboxの箇所を変更すればOKです。