中国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

Quote:

全删掉了

发现部分 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、

Quote:

例如：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

Quote:

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

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

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

Quote:

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

Quote:

Originally posted by zh159 at 2007-5-1 10:34 AM:

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

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

作者: slore 时间: 2007-5-2 17:12
VBS可以写类：

Quote:

'------------------------定义类---------------------
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

Quote:

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

Quote:

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

Quote:

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

Quote:

Originally posted by slore at 2007-5-2 05:28 AM:
晕死，好像叫新建脚本文件.vbs

貌似删除了。。那重写看看好了＝。＝

呵呵，辛苦了：）

期盼ing。

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

Quote:

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

Quote:

Originally posted by flyinspace at 2007-5-2 05:34 PM:

算法很简单。。

也比我的用得聪明。。。但因为没有考虑闰年的存在。。

计算长一点的天数时就会出问题。。。

若加入闰年的判断。。会好很多。

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

Quote:

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
谢谢先