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です。