中国DOS联盟

基本没有什么算法可言
纯粹代数
也是弥补
http://www.cn-dos.net/forum/viewthread.php?tid=33561&fpage=3
那个帖子的不足

@echo off

::Convert any possitive real number N to YY-DD-HH-MM-SS-Ms

::N is not larger than 214748364799.

::Author:   Scriptor@GUCAS

::Finished at: 13:07  09-16-2007 



setlocal enabledelayedexpansion

set/p in=::

set /a y=0,d=0,h=0,m=0,s=0,ms=0 rem predefine the time. 2>nul

set/a ms=in%%100  rem cacl the ms_part 2>nul

if %in% gtr 100 set ms=%in:~-2%&set h=%in:~0,-2%

if %h% equ 0 goto :out rem only millisecond

call :clc !h!



:out

::: output the time

echo time %in% (ms) equals:

echo      %y% Years %d% Days %h% Hours %m% Mins %s% Secs %ms% ms.

endlocal

pause&exit/b



:clc

if %1 gtr 0 (

   set/a h=%1/3600

   set/a m=%1%%3600/60

   set/a s=%1%%3600%%60

)

if %h% geq 24 (

   set/a y=%h%/24/365

   set/a d=%h%/24%%365

   set/a h%%=24

)



rem max is 214748364799 ms

@echo off

::将任何正实数N转换为YY-DD-HH-MM-SS-Ms

::N不大于214748364799。

::作者：Scriptor@GUCAS

::完成于：2007年9月16日13:07 



setlocal enabledelayedexpansion

set/p in=::

set /a y=0,d=0,h=0,m=0,s=0,ms=0 rem 预定义时间。2>nul

set/a ms=in%%100  rem 计算毫秒部分 2>nul

if %in% gtr 100 set ms=%in:~-2%&set h=%in:~0,-2%

if %h% equ 0 goto :out rem 只有毫秒

call :clc !h!



:out

::: 输出时间

echo time %in% (ms) equals:

echo      %y% Years %d% Days %h% Hours %m% Mins %s% Secs %ms% ms.

endlocal

pause&exit/b



:clc

if %1 gtr 0 (

   set/a h=%1/3600

   set/a m=%1%%3600/60

   set/a s=%1%%3600%%60

)

if %h% geq 24 (

   set/a y=%h%/24/365

   set/a d=%h%/24%%365

   set/a h%%=24

)



rem 最大值是214748364799毫秒

?

很不错.

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

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

call :clc !h! 什么意思？

自己看call /?
和setlocal /?

@echo off
setlocal enabledelayedexpansion
set /p Input=输入秒:
if %Input% GTR 0 set /a Y=%Input%/31536000&set /a D=(Input%%31536000)/86400&set /a H=(Input%%86400)/3600&set /a M=(Input%%3600)/60&set /a S=Input%%60
echo 折合: %Y% 年 %D% 日 %H% 时 %M% 分 %S% 秒.
pause>nul

超过年份将会溢出

@echo off
setlocal enabledelayedexpansion
set /p Input=输入秒:
if %Input% GTR 0 set /a Y=%Input%/604800&set /a D=(Input%%604800)/86400&set /a H=(Input%%86400)/3600&set /a M=

(Input%%3600)/60&set /a S=Input%%60
echo 折合: %Y% 周 %D% 日 %H% 时 %M% 分 %S% 秒.
pause>nul

Last edited by uiopuiop on 2007-10-6 at 11:29 PM ]

不好使啊

:: Func: Returns a calendar date and time of day from the number of
:: elapsed seconds since 1st January 1970 00:00:00. For
:: NT4/2000/XP/2003.
::
:: Args: %1 seconds used to create calendar date and time of day
:: %2 var to receive year, 4 digits for all typical dates
:: %3 var to receive month, 2 digits, 01 to 12
:: %4 var to receive day of month, 2 digits, 01 to 31
:: %5 var to receive hours, 2 digits, 00 to 23
:: %6 var to receive minutes, 2 digits, 00 to 59
:: %7 var to receive seconds, 2 digits, 00 to 59
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
set /a i=%1,ss=i%%60,i/=60,nn=i%%60,i/=60,hh=i%%24,dd=i/24,i/=24
set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
(if %hh% LSS 10 set hh=0%hh%)&(if %nn% LSS 10 set nn=0%nn%)
if %ss% LSS 10 set ss=0%ss%
endlocal&set %7=%ss%&set %6=%nn%&set %5=%hh%&^
set %4=%dd%&set %3=%mm%&set %2=%yy%&goto :EOF

一起学习:
http://www.cn-dos.net/forum/viewthread.php?tid=37382&page=1###
--------------->15楼