中国DOS联盟

如果我输入字母,它还是会出现:

请输入秒数:dddd

0 天 0 小时 0 分 0 秒

请按任意键继续. . .

我是不是来捣乱,,,的...嘻嘻...;)

[ Last edited by zouzhxi on 2007-1-17 at 09:54 AM ]

将以上代码理解为（非毫秒）：

set /a D=%t%/86400
set /a H=%t%%%86400/3600
set /a M=%t%%%86400%%3600/60
set /a S=%t%%%86400%%3600%%60
ECHO %D%日%H%时%M%分%S%秒

感悟即：取值为t 除86400秒（等于1日）商为天数 余数除3600秒（等于1小时）商为小时数 余数再循环 以次类推可推广至周月年 但因为32位精确限制将达不到最大预期效果

Originally posted by namejm at 2007-1-16 16:15:
　　12楼的代码有如下缺陷：

　　1、截取小数部分用替换语句是容易出错的，比如：整数部分是小数部分的某一个字符串的时候，如 23.1234。建议不 ...

谢谢指出,呵呵.写的草率了.已经修正了.

Originally posted by PPdos at 2007-1-16 08:39 PM:
各位厉害。。竟然连毫秒都准确到了 。。看来可以修改成春节倒计时了^^

@ECHO OFF&MODE CON COLS=40 LINES=3&TITLE=新年倒计时

SETLOCAL ENABLEDELAYEDEXPANSION

SET /A YEAR=%DATE:~0,4%,MONTH=%DATE:~5,2%,DAY=%DATE:~8,2%

CALL :ALG MONTH %MONTH%&&CALL :ALG DAY %DAY%

IF NOT "%1" == "" SET NB=%1&&GOTO :TOPY

SET /A NX=%RANDOM%%%12+1,NZ=%RANDOM%%%28+1

SET NYY=%NX%.%NZ%

:TOPX

CLS&ECHO.&SET /P NB=%NYY%过年?

IF "%NB%" == "" SET NB=%NYY%&&GOTO TOPZ

IF /I "%NB:~0,1%" == "n" SET NYY=那是什么时候&&GOTO TOPX

IF /I "%NB:~0,1%" == "y" SET NB=%NYY%&&GOTO TOPY

IF NOT "%NB%" == "" SET NYY=%NB%&&GOTO TOPX

:TOPY

ECHO %NB%|FINDSTR /R "^**">nul||GOTO TOPX

FOR /F "tokens=1,2 delims=.:;-/" %%i IN ("%NB%") DO CALL :ALG BM %%i&CALL :ALG BD %%j

IF NOT %BM% GTR 0 (GOTO TOP) ELSE IF %BM% GTR 12 GOTO TOPX

IF NOT %BD% GTR 0 (GOTO TOP) ELSE IF %BD% GTR 31 GOTO TOPX

FOR /L %%i IN (1,1,12) DO (

       if %%i geq 8 (set d1=30&&set d2=31) else set d1=31&&set d2=30

       set /a st=%%i%%2

       if !st! equ 0 (set M%%i=!d2!) else set M%%i=!d1!)

CALL :LM %YEAR%

IF %BM% GTR %MONTH% SET GO=GTR

IF %BM% EQU %MONTH% SET GO=EQU

IF %BM% LSS %MONTH% SET /A NEWYEAR=%YEAR%+1&&SET GO=LSS

GOTO %GO%



:GTR

FOR /L %%i IN (%MONTH%,1,%BM%) DO SET /A DALL=!DALL!+M%%i

SET /A DALL=%DALL%+!M%MONTH%!-%DAY%+%BD%-M%MONTH%-M%BM%

GOTO TIME



:EQU

IF %BD% GTR %DAY% SET /A DALL=%BD%-%DAY%&&GOTO TIME

IF %BD% EQU %DAY% SET DALL=0&&GOTO TIME

IF %BD% LSS %DAY% SET /A NERA=%DAY%-%BD%&&GOTO LSS



:LSS

FOR /L %%i IN (%MONTH%,1,12) DO SET /A OALL+=M%%i

SET /A OALL=%OALL%+!M%MONTH%!-%DAY%-M%MONTH%

CALL :LM %NEWYEAR%

FOR /L %%i IN (1,1,%BM%) DO SET /A NALL+=M%%i

SET /A NALL+=%BD%-M%BM%

SET /A DALL=%OALL%+%NALL%



:TIME

FOR /F "tokens=1-4 delims=:." %%a IN ("%TIME%") DO (

CALL :ALG TT %%b&&CALL :ALG TS %%c&&CALL :ALG TM %%d

SET /A TH=24-%%a-1,TT=60-!TT!-1,TS=60-!TS!-1,TM=1000-!TM!*10

CLS&ECHO/&ECHO 距新年还有%DALL%天!TH!小时!TT!分!TS!秒!TM!毫秒)

IF "%DAY%" == "%DATE:~8,2%" (GOTO TIME) ELSE GOTO END



:END

START /I "" %0 "NB"

GOTO :EOF



:LM

SET /A LM=(%1-2000)%%4

IF NOT %LM% EQU 0 (SET M2=28) ELSE SET M2=29

GOTO :EOF



:ALG

SET CHKALG=%2

IF "%CHKALG:~1,1%" == "" SET %1=%CHKALG%&GOTO :EOF

SET /A %1=%CHKALG:~0,1%*10+%CHKALG:~-1%

GOTO :EOF

我刚写的嘿嘿:D

有办法突破11天的限制吗？如果数字太大会溢出啊，多谢！


请输入秒数(退出请直接按回车)：4321432531252
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.

11 天 32 小时 19 分 47 秒

这个论坛果然不错！！！ 强烈支持！


@echo off
:begin
cls
echo.
set input=
set /p input= 请输入秒数(退出请直接按回车)：
if not defined input exit
set /a SS=%input%%%60
set /a MM=%input%/60%%60
set /a HH=%input%/3600%%60
if %HH% GEQ 24 set /a HH=HH%%24
set /a DD=%input%/86400
if %DD% GEQ 7 set /a DD=DD%%7
set /a WW=%input%/604800%%60
echo.
if %DD% GEQ 1 (echo %WW% 周 %DD% 天 %HH% 小时 %MM% 分 %SS% 秒
) else (
echo %DD% 天 %HH% 小时 %MM% 分 %SS% 秒
)
echo.
pause
goto begin

[ Last edited by uiopuiop on 2007-10-5 at 11:28 AM ]

不过。。。。。

请输入秒数(退出请直接按回车)：65356534654
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.

29 周 25 天 10 小时 33 分 20 秒

请输入秒数(退出请直接按回车)：3431253

5 周 4 天 5 小时 7 分 33 秒

好像因该时17小时，不是5小时。。。。

[ Last edited by uiopuiop on 2007-10-5 at 12:04 PM ]

http://www.cn-dos.net/forum/viewthread.php?tid=33611&fpage=1&highlight=%E6%97%B6%E9%97%B4

看这个!! :)

你的算法很好，小弟愚笨，如何输入以秒为单位的数字，输出只要精确到秒就可以了。并且代码在一个批处理里。


能不能写出来，万分感激！

[ Last edited by uiopuiop on 2007-10-5 at 12:54 PM ]