これは、VBScript & WSH(Windows Scripting Host)用です

はじめに
このページは、自分の備忘録です。

日付を取得する機会というのは多いのではないだろうか。

そのような時に必要な、アルゴリズムである。(とてもアルゴリズムとは呼べないような基本中の基本かも知れないですね)

今日の日付を取得する
REM
REM 日付(本日)を取得
REM 取得する文字列は、8文字。(YYYYMMDD)
REM (一桁の場合、最初に 0 を代入して、月・日ともに必ず二桁にする。)
REM

Dim DayIs
Dim temp

DayIs = Year(Now)
temp = Month(Now)
If Int(temp) < 10 Then
temp = "0" & temp
End If
DayIs = DayIs & temp
temp = Day(Now)
If Int(temp) < 10 Then
temp = "0" & temp
End If
DayIs = DayIs & temp
例えば、今日が、2000年10月1日ならば、戻り値は、20001001 という値が返る。

一桁の値でも、二桁目に 0 を入れることで、必ず二桁が返るようにしている。

ちなみに前日なら
REM
REM 日付(本日)を取得
REM 取得する文字列は、8文字。(YYYYMMDD)
REM (一桁の場合、最初に 0 を代入して、月・日ともに必ず二桁にする。)
REM

Dim DayIs
Dim temp

DayIs = Year(Now-1)
temp = Month(Now-1)
If Int(temp) < 10 Then
temp = "0" & temp
End If
DayIs = DayIs & temp
temp = Day(Now-1)
If Int(temp) < 10 Then
temp = "0" & temp
End If
DayIs = DayIs & temp
免責など
こんなものに著作権はないでしょう。
このソフトを使用したことによって生じた、
いかなる損害についても責任は持ちません。
ソースコードについても、各自の責任において、
自由にいじってくれてもいいです。
mail to active@window.goukaku.com