中国DOS联盟

@echo off&title 北京奥运会开幕倒计时
:main
::下面一句的秒提取有点问题...
for /f "tokens=1,2,3 delims=.:" %%a in ("%time%") do (set h=%%a&set m=%%b&set s=%%c)
::下面一句的日子提取有点问题...
for /f "tokens=3 delims=- " %%d in ("%date%") do (if %%d==08 (set day=8) else (set day=%%d))
set kday=8

::jk=距离开幕天数x24gs=过去的秒数ss=剩下的时间jh=距离开幕的小时jm=距离开幕的分钟js=距离开幕的秒数
:jisuan
if %s%==07 (set s=7)
if %s%==08 (set s=8)
if %s%==09 (set s=9)
if %day%==09 ( set day=9 )
if %kday% lss %day% ( goto :aoyun )
set /a jk=(%kday%-%day%)*24
set /a gs=(%h%*3600+%m%*60+%s%)
set /a ss=24*3600-%gs%
set /a jh=%ss%/3600
set /a js=%ss%%%3600
set /a js2=%js%
if %js% geq 60 (goto :jisuanmin) else (set /a jm=0)
:xianshi
set /a zh=%jk%+%jh%-4
echo 距离北京奥运会开幕还有%zh%小时%jm%分钟%js%秒
echo 现在时间是%h%:%m%:%s%
ping /n 2 127.1>nul&cls
set zong=%zh%%jm%%js%
if %zong%==000 (goto :aoyun) else (goto :main)
:jisuanmin
set /a jm1=%js%-(%js%%%60)
set /a jm=%jm1%/60
set /a js=%js2%%%60
::pause
goto :xianshi

:aoyun
set /a col=%random%%%9+1
color 0%col%
echo 奥运来喇!
ping /n 1 127.1>nul&cls
goto :aoyun

现在才发上来原因是那几天不能上网...

这个好像有点问题,希望有高手能指教一下.

还有那个搞到剪贴版的discuz代码是什么啊?

把你的代码放到code标签里

可以研究一下别人写的
@echo off&color ac&mode con cols=50 lines=10 title 奥运倒计时--made by zw19750516(cn-dos) goto one :two set n=2&set var=08-07&goto begin :one 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 if %var:~3,1% equ 0 (set /a number+=%var:~4,1%) else (set /a number+=%var:~3,2%) 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 if %time:~6,1% equ 0 (set /a m=60-%time:~7,1%) else (set /a m=60-%time:~6,2%) if %time:~3,1% equ 0 (set /a f=60-%time:~4,1%) else (set /a f=60-%time:~3,2%) if %time:~,1% equ 0 (set /a s=44-%time:~1,1%) else (set /a s=44-%time:~,2%) if %m% equ 60 set /a m-=60&set /a f+=1 if %f% equ 60 set /a f-=60&set /a h+=1 if %s% geq 24 set /a s-=24&set /a day+=1 cls echo.&echo.&echo. echo 现在离北京奥运开幕还有%day%天%s%小时%f%分%m%秒 echo. echo 我们每个中国人都在期盼这一自豪时刻的到来！ set n=0&set number=0 ping /n 127.1>nul&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 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

果然比我的简单好多...