昨日の日付を表示する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のダウンロードは こちら です。
Leave a Reply