中国DOS联盟

目标：输入任意日期后，计算与这个日期之前或之后的时间段。。

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

全删掉了

发现部分 BUG 。。

过几天重新写过。。

youxi 01 和 slore 有更好的。欢迎大家的使用和测试。

[ Last edited by flyinspace on 2007-5-2 at 08:28 AM ]

Re flyinspace:

测试了一下，发现如下几个问题并提点建议

1、

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

脚本名称与系统内部命令“Date”重名，导致测试时直接将系统日期改变，建议修改为类似"Datex"之类的脚本名称；

2、对于像“2007-3-28”格式的日期还无法正常的检测和处理，建议增加检测处理机制一下；

3、另外，提点建议。发比较多的代码时，尽量用将代码括起来，便于别人查看和复制。

[ Last edited by lxmxn on 2007-4-30 at 06:40 PM ]

CDATE不让用汗～要复杂化么？那就当字符串处理

[ Last edited by slore on 2007-5-1 at 04:28 AM ]

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

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

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

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

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

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

噢。。我本来的意思只是说 用 vbs 的自己编写个类。。

例如：

class xdata
{
int Year;
int Month;
int Day;
AddDay();
……
};

类似的功能的。。。。。

谁知道。居然有人想出了另外的法子。。（粗略看了一下vbs的教程。好象 vbs可以自己编写类吧。。）

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

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

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

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天直接.....

Originally posted by slore at 2007-5-2 04:12 AM:
VBS可以写类：



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

谢谢提出问题所在。。

下个版本，会判断 查询的天数问题。。这样就可以最快的计算了。

大于30天的。用月减。
大于一年的。判断是否闰年然后减。。

这样就可以快很多了。

其实，老斑竹 willsort 早就写过了 相应的代码。不过，相关计算原理我到目前为止，还是没有想明白。

利用该代码，就可以写出挑战题目相关要求。
@echo off title 日期查询 color 1f if == 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

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

利用该代码，就可以写出挑战题目相关要求。 ...

算法很简单。。

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

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

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

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