pcl_test

@echo off
for /f "delims=" %%a in ('mshta VBScript:Execute("NewDate=DateAdd(""d"",1,date):FmtDate=month(NewDate)&""月""&day(NewDate)&""日""&chr(32)&weekdayname(weekday(NewDate)):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write FmtDate:close"^)') do echo;%%a
pause
复制代码