批处理将秒转换成日时分秒 - 中国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 ]

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

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

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

第16楼　zouzhxi	发表于 2007-01-17 09:52
中级用户　发帖 177　积分 430　来自广东深圳
如果我输入字母,它还是会出现: 请输入秒数:dddd 0 天 0 小时 0 分 0 秒请按任意键继续. . . 我是不是来捣乱,,,的...嘻嘻...;) [ Last edited by zouzhxi on 2007-1-17 at 09:54 AM ]

第17楼　PPdos	发表于 2007-01-17 11:02
高级用户　发帖 268　积分 783
将以上代码理解为（非毫秒）： 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位精确限制将达不到最大预期效果

第18楼　hxuan999	发表于 2007-01-18 01:55
中级用户　发帖 161　积分 337
Originally posted by namejm at 2007-1-16 16:15: 　　12楼的代码有如下缺陷：　　1、截取小数部分用替换语句是容易出错的，比如：整数部分是小数部分的某一个字符串的时候，如 23.1234。建议不 ... 谢谢指出,呵呵.写的草率了.已经修正了.

第19楼　everest79	发表于 2007-01-18 07:15
金牌会员　发帖 1,127　积分 2,564
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

第20楼　uiopuiop	发表于 2007-10-05 10:21
中级用户　发帖 211　积分 400
有办法突破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 秒

第21楼　uiopuiop	发表于 2007-10-05 10:27
中级用户　发帖 211　积分 400
这个方法好点这个论坛果然不错！！！强烈支持！ @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 ]

第22楼　uiopuiop	发表于 2007-10-05 10:33
中级用户　发帖 211　积分 400
不过。。。。。请输入秒数(退出请直接按回车)：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 秒

第23楼　uiopuiop	发表于 2007-10-05 11:53
中级用户　发帖 211　积分 400
算法有误请输入秒数(退出请直接按回车)：3431253 5 周 4 天 5 小时 7 分 33 秒好像因该时17小时，不是5小时。。。。 [ Last edited by uiopuiop on 2007-10-5 at 12:04 PM ]

第24楼　scriptor	发表于 2007-10-05 12:25
银牌会员　发帖 555　积分 1,187
http://www.cn-dos.net/forum/viewthread.php?tid=33611&fpage=1&highlight=%E6%97%B6%E9%97%B4 看这个!! :)

第25楼　uiopuiop	发表于 2007-10-05 12:29
中级用户　发帖 211　积分 400
你的算法很好，小弟愚笨，如何输入以秒为单位的数字，输出只要精确到秒就可以了。并且代码在一个批处理里。能不能写出来，万分感激！ [ Last edited by uiopuiop on 2007-10-5 at 12:54 PM ]