求一个让批处理显示今天是今年的第几天（阳历） - 中国DOS联盟论坛

这不是纯P版的，但厉害，我不懂vbs，以前写了纯p版的(可计算任意日期)，发给楼主了：

@echo off
:begin
cls
set /p var=输入要计算的日期（格式为2000-01-01）:
if "%var:~4,1%%var:~7,1%"=="--" goto year
cls
echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin
:year
set year=%var:~,4%
set /a str=%year%-%year%/4*4
:month
if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%)
if %month% gtr 2 (
   if %str% equ 0 (
       set /a number+=29
   ) else (
          set /a number+=28
   )
)
set /a month-=1
if %month% gtr 0 for /l %%i in (1,1,%month%) do call :lp %%i
:day
if %var:~8,1% equ 0 (set /a number=%number%+%var:~9,1%) else (set /a number=%number%+%var:~8,2%)
cls
echo %var%是%year%年的第%number%天&set number=0
pause>nul&goto :eof
:lp
for %%i in (1,3,5,7,8,10) do if %%i equ %1 set /a number+=31
for %%i in (4,6,9,11) do if %%i equ %1 set /a number+=30
goto :eof

[ Last edited by zw19750516 on 2008-4-16 at 06:40 PM ]

第1楼　clian76	发表于 2008-04-16 00:17
中级用户　发帖 162　积分 363
求一个让批处理显示今天是今年的第几天（阳历）如题，求教各位大虾！

第2楼　abcd	发表于 2008-04-16 01:46
银牌会员　发帖 739　积分 1,436
@echo off mshta vbscript:msgbox("今天是一年中的第"^&datepart("y",now)^&"天",0,"提示")(window.close)

第3楼　clian76	发表于 2008-04-16 10:32
中级用户　发帖 162　积分 363
谢谢楼上的师傅，太厉害了！太谢谢了！

第4楼　bat-zw	发表于 2008-04-16 13:12
金牌会员　发帖 1,276　积分 3,105
这不是纯P版的，但厉害，我不懂vbs，以前写了纯p版的(可计算任意日期)，发给楼主了： @echo off :begin cls set /p var=输入要计算的日期（格式为2000-01-01）: if "%var:~4,1%%var:~7,1%"=="--" goto year cls echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin :year set year=%var:~,4% set /a str=%year%-%year%/44 :month if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%) if %month% gtr 2 ( if %str% equ 0 ( set /a number+=29 ) else ( set /a number+=28 ) ) set /a month-=1 if %month% gtr 0 for /l %%i in (1,1,%month%) do call :lp %%i :day if %var:~8,1% equ 0 (set /a number=%number%+%var:~9,1%) else (set /a number=%number%+%var:~8,2%) cls echo %var%是%year%年的第%number%天&set number=0 pause>nul&goto :eof :lp for %%i in (1,3,5,7,8,10) do if %%i equ %1 set /a number+=31 for %%i in (4,6,9,11) do if %%i equ %1 set /a number+=30 goto :eof [ Last edited by zw19750516 on 2008-4-16 at 06:40 PM* ]

第5楼　clian76	发表于 2008-04-21 00:01
中级用户　发帖 162　积分 363
谢谢zw19750516兄台，我正需要这个。

第6楼　happyloveessay	发表于 2008-04-22 20:30
新手上路　发帖 6　积分 11　来自山西晋城
谢谢