中国DOS联盟论坛 - Powered by Discuz! Board

标题: [挑战5]：日期的前后时间计算 [难度:☆☆] [打印本页]

作者: flyinspace 时间: 2007-5-1 07:17 标题: [挑战5]：日期的前后时间计算 [难度:☆☆]

目标：输入任意日期后，计算与这个日期之前或之后的时间段。。例如：Date 2007-03-31 3 就是查询3天后的日期。编写语言要求: cmd (help 包含的命令) vbs (不得使用 cdate 类似的函数，不得调用系统 api函数)，不得生成临时文件。限制：不得使用第三方工具针对目标人群：学会了批处理，但还不会活学活用的人。。希望这些人通过这里的例子能迅速学会批处理的计算技巧。。难点：变量的嵌套，日期的加减，命令行参数的使用（不需要做参数检测），不同大小的数值的溢出处理。。目标积分：每完成一样获得积分1，四项全完成或积分4。。 ps : 积分不是目的。。重要的是，我们可以完成这样的挑战。。请大家根据自己的能力尽力编写吧：） ________________________________________________________ 下一期的题目会在每周一的时间推出。。我们的挑战会逐渐增加难度，请大家量力而行。。个人代码见一楼。 ———————————————————————————————————— 挑战前三期部分内容下载 [ Last edited by flyinspace on 2007-4-30 at 06:29 PM ]

附件 1: 挑战.rar (2007-5-1 07:28, 4.02 K, 下载附件所需积分 1点 ,下载次数： 44)

作者: flyinspace 时间: 2007-5-1 07:18 标题: 修正 1

全删掉了

发现部分 BUG 。。过几天重新写过。。 youxi 01 和 slore 有更好的。欢迎大家的使用和测试。 [ Last edited by flyinspace on 2007-5-2 at 08:28 AM ]

作者: lxmxn 时间: 2007-5-1 07:39

Re flyinspace: 测试了一下，发现如下几个问题并提点建议 1、

例如：Date 2007-03-31 3 就是查询3天后的日期。

脚本名称与系统内部命令“Date”重名，导致测试时直接将系统日期改变，建议修改为类似"Datex"之类的脚本名称； 2、对于像“2007-3-28”格式的日期还无法正常的检测和处理，建议增加检测处理机制一下； 3、另外，提点建议。发比较多的代码时，尽量用[‪code][‪/code]将代码括起来，便于别人查看和复制。 [ Last edited by lxmxn on 2007-4-30 at 06:40 PM ]

作者: slore 时间: 2007-5-1 17:05

CDATE不让用汗～要复杂化么？那就当字符串处理 [ Last edited by slore on 2007-5-1 at 04:28 AM ]

作者: baomaboy 时间: 2007-5-1 18:02

真是啊有简单的方法不能用啊,最佩服slore兄代码的简练之处了.

作者: slore 时间: 2007-5-1 18:50

vbs: execute("msgbox #2007-03-31#+3")

作者: baomaboy 时间: 2007-5-1 20:32

Originally posted by slore at 2007-5-1 18:50: vbs: execute("msgbox #2007-03-31#+3")

这个用的好,避开函数,利用了# 哈哈妙

作者: zh159 时间: 2007-5-1 23:34

vbs (不得使用 cdate 类似的函数，不得调用系统api函数)

感觉像是说：不得使用汽油等燃料，你如何开动汽车

作者: flyinspace 时间: 2007-5-2 13:53

噢。。我本来的意思只是说用 vbs 的自己编写个类。。例如： class xdata { int Year; int Month; int Day; AddDay(); …… }; 类似的功能的。。。。。谁知道。居然有人想出了另外的法子。。（粗略看了一下vbs的教程。好象 vbs可以自己编写类吧。。）

作者: flyinspace 时间: 2007-5-2 13:54

Originally posted by zh159 at 2007-5-1 10:34 AM: 感觉像是说：不得使用汽油等燃料，你如何开动汽车

这个我的说法不够严谨。。。换个说法（不得调用与时间相关的api）

作者: slore 时间: 2007-5-2 17:12

VBS可以写类：

'------------------------定义类--------------------- Class MyClass '-----------------定义类使用的变量------------- Private class_name '---------------------类初始化过程--------------- Private Sub Class_Initialize() class_name="MyClass" End Sub '-----------------------获得类属性------------------- Public Property Get MyName MyName = class_name End Property '-----------------------写入类属性------------------- Public Property Let MyName(ByVal strName) class_name = strName End Property '-----------------------定义类过程------------------- Public Sub CheckName() If Me.MyName = "MyClass" Then MsgBox "目前为默认名",,"状态" Else MsgBox "名已经修改为:" & Me.MyName,,"状态" End If End Sub '-----------------------类结束过程------------------- Private Sub Class_Terminate() End Sub End Class '-----------------------类定义完毕------------------- ' ' ' '----------调用类的简单过程--------------- Dim X Set X = New MyClass MsgBox X.MyName X.CheckName X.MyName = "我是新名字" X.CheckName MsgBox X.MyName Set X = Nothing '----------------调用完毕-----------------

哈哈，但是不知道类要怎么应用…… P的太慢了，试了下算8000天直接.....

作者: flyinspace 时间: 2007-5-2 17:20

Originally posted by slore at 2007-5-2 04:12 AM: VBS可以写类：哈哈，但是不知道类要怎么应用…… P的太慢了，试了下算8000天直接.....

谢谢提出问题所在。。下个版本，会判断查询的天数问题。。这样就可以最快的计算了。大于30天的。用月减。大于一年的。判断是否闰年然后减。。这样就可以快很多了。

作者: youxi01 时间: 2007-5-2 17:22

其实，老斑竹 willsort 早就写过了相应的代码。不过，相关计算原理我到目前为止，还是没有想明白。利用该代码，就可以写出挑战题目相关要求。

@echo off
title 日期查询
color 1f
if [%1]==[] call :Help
call :Date2Day %1 days
set/a days=%days%+%2
call :Day2Date %days% date
echo.
echo -----------结果---------------
echo.
echo 你查询的日期为：%date%
echo ------------------------------
cmd /k

:Date2Day
setlocal ENABLEEXTENSIONS 
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do ( 
  set yy=%%a & set mm=%%b & set dd=%%c 
)
set /a dd=100%dd%%%100,mm=100%mm%%%100 
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF 

:Day2Date
setlocal ENABLEEXTENSIONS 
set /a i=%1,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%) 
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF 

:Help
    cls
    echo ________________________________________________                       
    echo 使用方法：%~nx0 [日期] [天数] 
    echo.                           
    echo 日期格式：2007-03-31                     
    echo 天数格式：+/-查询的天数                        
    echo 示例：%~nx0 2007-03-31 3 就是查询3天后的日期  
    echo ________________________________________________
    echo.
    cmd /k

作者: flyinspace 时间: 2007-5-2 17:34

Originally posted by youxi01 at 2007-5-2 04:22 AM: 其实，老斑竹 willsort 早就写过了相应的代码。不过，相关计算原理我到目前为止，还是没有想明白。利用该代码，就可以写出挑战题目相关要求。 ...

算法很简单。。也比我的用得聪明。。。但因为没有考虑闰年的存在。。计算长一点的天数时就会出问题。。。若加入闰年的判断。。会好很多。

作者: youxi01 时间: 2007-5-2 17:47

没考虑闰年，你测试过了吗？我的测试怎么“觉得”它已经考虑过闰年呢？！其实，它肯定考虑过了，至于计算原理我真的是不清楚。

作者: slore 时间: 2007-5-2 17:52

我有个思路就是求余...除365 余数Y1再先对4求余（闰年）看有几个闰年给Y1要再减几个1，得到Y2 然后Y2化成月和日即可。。。（哈哈，还是execute够偷懒）

作者: flyinspace 时间: 2007-5-2 18:10

噢。仔细看了一下。确实考虑到了闰年。。原理研究中？

作者: flyinspace 时间: 2007-5-2 18:24

Originally posted by slore at 2007-5-2 04:52 AM: 我有个思路就是求余...除365 余数Y1再先对4求余（闰年）看有几个闰年给Y1要再减几个1，得到Y2 然后Y2化成月和日即可。。。（哈哈，还是execute够偷懒）

现在不管你偷懒与否。。。给出大家所需要的代码出来吧。。这一点上，无论如何请不要偷懒了。

作者: slore 时间: 2007-5-2 18:28

晕死，好像叫新建脚本文件.vbs 貌似删除了。。那重写看看好了＝。＝

作者: flyinspace 时间: 2007-5-2 18:36

Originally posted by slore at 2007-5-2 05:28 AM: 晕死，好像叫新建脚本文件.vbs 貌似删除了。。那重写看看好了＝。＝

呵呵，辛苦了：）期盼ing。

作者: slore 时间: 2007-5-2 20:41

Dim ADYear Dim ADMonth Dim ADDay Dim ADDDay Dim RnMod Dim Mon(12) Dim strDate, strADDay strDate = "2007-3-4" strADDay = 800 ADYear = Year(strDate) RnMod = ADYear Mod 4 If RnMod = 0 Then tempRNYear = 1 ADMonth = Month(strDate) ADDay = Day(strDate) strADDay = strADDay + Date2Day(ADYear, ADMonth, ADDay) tempYear = strADDay \ 365 tempRNday = strADDay Mod 365 If tempYear <> 0 Then tempRNYear = tempRNYear + (RnMod + tempYear) \ 4 tempRNday = tempRNday - tempRNYear End If ADYear = ADYear + tempYear MsgBox Day2Date(ADYear, tempRNday) Function Date2Day(ByVal y, ByVal m, ByVal d) Mon(1) = 31: Mon(2) = 28: Mon(3) = 31: Mon(4) = 30: Mon(5) = 31: Mon(6) = 30 Mon(7) = 31: Mon(8) = 31: Mon(9) = 30: Mon(10) = 31: Mon(11) = 30: Mon(12) = 31 Date2Day = 0 If IsDate(y & "/2/29") Then Mon(2) = 29 Dim i For i = 1 To m - 1 Date2Day = Date2Day + Mon(i) Next Date2Day = Date2Day + d End Function Function Day2Date(ByVal y, ByVal Days) Mon(2) = 28 If IsDate(y & "/2/29") Then Mon(2) = 29 Dim i If Days > 31 Then For i = 1 To 11 If Days < Mon(i) Then Exit For Days = Days - Mon(i) Next ADMonth = i Else ADMonth = 1 End If Day2Date = y & "-" & ADMonth & "-" & Days End Function

因为每400年有97个闰年，所以存在过8年才一个闰年的情况，所以2000年为初始年的话，你不要去计算146000后的日子，那样会差1，2天，因为我是按每4年一个闰年算的。这里我只写了+上天数的。。。-的自己改。。。我写这个只是用代码呈现下我的思路而已。。。

作者: slore 时间: 2007-5-2 20:45

8000天也是很快的。。。呵呵在strADDay=800下面加： execute("msgbox #" & strDate & "#+" & strADDay)验证下。。。 10000还是正确的。。2000000就乱78糟了。。。我不改了。。。思路明白就OK

作者: flyinspace 时间: 2007-5-2 21:27

刚刚测试了一下。。还算标准。。。我写的不够用。。到时再换新的上来。。。

作者: namejm 时间: 2007-6-8 08:56

　　在整理索引帖子的时候发现了这个帖子，刚好本人昨天发了个求N天前日期的帖子，请参考这里：求N天前日期的批处理

作者: bjsh 时间: 2007-6-8 10:44

Originally posted by flyinspace at 2007-5-2 05:34 PM: 算法很简单。。也比我的用得聪明。。。但因为没有考虑闰年的存在。。计算长一点的天数时就会出问题。。。若加入闰年的判断。。会好很多。

没仔细看willsort的代码; 但是瞥到了这一句;

dd+y*365+y/4-y/100+y/400

这一句就说明了考虑到了闰年; 这种用法不是挺经典的算法么

作者: okmhy 时间: 2007-6-12 23:55 标题: 顶~!

很多代码看不懂....紧急学习中..

作者: poopoo 时间: 2008-4-17 17:19 标题: 第 15 楼

好好好

作者: microshaoft 时间: 2009-11-28 13:55

谢谢先