Wscript.Echo "-----------------------------------------------------------------"
Wscript.Echo "前日表示"
Wscript.Echo "-----------------------------------------------------------------"
Dim xxxx , xxsYear , xxsMonth, xxsDay, xxSeikei, Yesterday
xxxx = Now()
Yesterday = DateAdd("d",-1,xxxx)
xxsYear = mid(Yesterday,1,4)
xxsMonth = mid(Yesterday,6,2)
xxsDay = mid(Yesterday,9,2)
xxSeikei = xxsYear & "_" & xxsMonth & "_" & xxsDay
Wscript.Echo Now()
Wscript.Echo Yesterday
Wscript.Echo xxSeikei
Wscript.Quit(0)