中国DOS联盟

@echo off&color ac&mode con cols=50 lines=10

title 奥运倒计时--made by zw19750516(cn-dos)

echo.&echo.&echo.

echo     我们每一个中国人都在期盼这一自豪时刻的到来！

echo.

for /l %%i in (1,1,100) do call,set cls=%%cls%%

goto one

:two

set n=2&set var=08-07&goto begin

ne

set n=1&set var=%date:~5,-4%

:begin

set month=%var:~1,1%&set number=29

set /a month-=1

for /l %%i in (1,1,%month%) do call :lp %%i

set /a number+=100%var:~3,2%%%100

set str=%str% %number%

if not %n% equ 2 goto two

for /f "tokens=1,2" %%i in ("%str%" do set /a day=%%j-%%i

set /a hm=100-1000%time:~9,2%%%1000,m=60-100%time:~6,2%%%100,f=60-100%time:~3,2%%%100,s=43-%time:~,2%

if %hm% equ 100 set /a hm-=100,m+=1

if %m% equ 60 set /a m-=60,f+=1

if %f% equ 60 set /a f-=60,h+=1

if %s% geq 24 set /a s-=24,day+=1

set /p=    离北京奥运开幕还有%day%天%s%小时%f%分%m%秒%hm%毫秒<nul

set /p=%cls%<nul

set n=0&set number=0

goto begin

: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

Originally posted by zh159 at 2008-4-16 21:32:
60秒还没解决
新的问题：
不能显示52、51秒，53秒在3秒后直接跳到50秒

PS：还剩129天？？？

@echo off&color ac&mode con cols=50 lines=10

for /l %%a in (1 1 100) do call set "t=%%t%%"

for /f "tokens=1-3 delims=./- " %%a in ("%date%") do (

  set /a sy=%%a,sm=100%%b%%100,sd=100%%c%%100

)

for /l %%i in (%sm% 1 8) do call :loop %%i

set /a mt-=sd

for /f "tokens=1-3 delims=.: " %%a in ("%time%") do (

  set /a ss=20-100%%a%%100-1,ff=60-100%%b%%100,mm=60-100%%c%%100

)

echo.&echo.

echo     我们每个中国人都在期盼这一自豪时刻的到来！

echo.&echo.

set var=%time:~7,1%

:lis

if %mm% equ 0 set /a ff-=1,mm=59

if %ff% equ 0 set /a ss-=1,ff=59

if %ss% lss 0 set /a ss=%ss:~-1%,mt-=1

if %ss% equ 0 set /a ss=23,mt-=1

set /p=  现在离北京奥运开幕还有%mt%天%ss%小时%ff%分%mm:~-2%秒%time:~9%毫秒<nul

set /p=%t%<nul

set num=%time:~7,1%

if %var% neq %num% (set/a mm-=1&set var=%time:~7,1%)

goto lis

:loop

for /f "tokens=%~1" %%a in ("31 29 31 30 31 30 31 8") do set /a mt+=%%a

goto :eof

@echo off&color ac&mode con cols=50 lines=10

title 奥运倒计时

for /l %%a in (1 1 100) do call set "t=%%t%%"

for /f "tokens=1-3 delims=./- " %%a in ("%date%") do (

  set /a sy=%%a,sm=100%%b%%100,sd=100%%c%%100

)

for /l %%i in (%sm% 1 8) do call :loop %%i

set /a mt-=sd

for /f "tokens=1-3 delims=.: " %%a in ("%time%") do (

  set /a ss=20-100%%a%%100-1,ff=60-100%%b%%100,mm=60-100%%c%%100

)

echo.&echo.

echo     我们每个中国人都在期盼着这一自豪时刻的到来！

echo.&echo.&echo.

set var=%time:~7,1%

:lis

if %mm% equ 0 set /a ff-=1,mm=59

if %ff% equ 0 set /a ss-=1,ff=59

if %ss% lss 0 set /a ss=%ss:~-1%,mt-=1

if %ss% equ 0 set /a ss=23,mt-=1

set /p=  　离北京奥运开幕还有%mt%天%ss%小时%ff%分%mm:~-2%秒%time:~9%毫秒<nul

set /p=%t%<nul

set num=%time:~7,1%

if %var% neq %num% (set/a mm-=1&set var=%time:~7,1%)

goto lis

:loop

for /f "tokens=%~1" %%a in ("31 29 31 30 31 30 31 8") do set /a mt+=%%a

goto :eof

@echo off

set count=0

set b=0

:loop

set last=%b%

set b=1%time:~9,2%

set /a r=200-b

set /p=%r% <nul

set /a count+=1

if %count% lss 1000 goto loop

pause

@echo off 

set n=101

for /l %%a in (1 1 100) do (

   set /a n-=1

   call set _%%a=%%n%%

)

:loop

set b=%time:~9%

call set /p=%%_%b%%%<nul

set /p=<nul

set /a count+=1

if %count% lss 1000 goto loop

pause