昨日の日付を表示するVBスクリプトです。
現在の日付を求めるために別の関数を呼んでいます。
Option Explicit
Dim STR_Yesterday
Dim STR_Temp
STR_Temp = Get_YYYYMMDD(1)
STR_Yesterday = DateAdd("d",-1,STR_Temp)
WScript.Echo STR_Yesterday
Private Function Get_YYYYMMDD(ByVal STR_Flag)
Dim STR_Temp
Dim STR_YYYY
Dim STR_MM
Dim STR_DD
If Not IsNumeric(STR_Flag) Then Exit Function End If
STR_Temp = Year(Now)
If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If
STR_YYYY = STR_Temp
STR_Temp = Month(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
STR_MM = STR_Temp
STR_Temp = Day(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
STR_DD = STR_Temp
Select Case STR_Flag
Case 0
GET_YYYYMMDD = STR_YYYY & STR_MM & STR_DD
Case 1
GET_YYYYMMDD = STR_YYYY & "/" & STR_MM & "/" & STR_DD
Case 2
GET_YYYYMMDD = "#" & STR_DD & "/" & STR_MM & "/" & STR_YYYY & "#"
End Select
End Function
Scriptのダウンロードは こちら です。
