|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『楼 主』:
[挑战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)
|
知，不觉多。不知，乃求知 |
|
 2007-5-1 07:17 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
2 楼』:
修正 1
发现部分 BUG 。。
过几天重新写过。。
youxi 01 和 slore 有更好的。欢迎大家的使用和测试。
[ Last edited by flyinspace on 2007-5-2 at 08:28 AM ]
|
知，不觉多。不知，乃求知 |
|
|
2007-5-1 07:18 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
3 楼』:
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 ]
|
|
|
2007-5-1 07:39 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
4 楼』:
CDATE不让用汗～要复杂化么？那就当字符串处理
[ Last edited by slore on 2007-5-1 at 04:28 AM ]
|
|
|
2007-5-1 17:05 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
|
|
2007-5-1 18:02 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
6 楼』:
vbs:
execute("msgbox #2007-03-31#+3")
|
|
|
2007-5-1 18:50 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
7 楼』:
| Quote: | Originally posted by slore at 2007-5-1 18:50:
vbs:
execute("msgbox #2007-03-31#+3") |
|
这个用的好,避开函数,利用了# 哈哈 妙
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-5-1 20:32 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
8 楼』:
| Quote: | | vbs (不得使用 cdate 类似的函数，不得调用系统api函数) |
|
感觉像是说：不得使用汽油等燃料，你如何开动汽车
|
|
|
2007-5-1 23:34 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
9 楼』:
噢。。我本来的意思只是说 用 vbs 的自己编写个类。。
例如：
class xdata
{
int Year;
int Month;
int Day;
AddDay();
……
};
类似的功能的。。。。。
谁知道。居然有人想出了另外的法子。。（粗略看了一下vbs的教程。好象 vbs可以自己编写类吧。。）
|
知，不觉多。不知，乃求知 |
|
|
2007-5-2 13:53 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
10 楼』:
| Quote: | Originally posted by zh159 at 2007-5-1 10:34 AM:
感觉像是说：不得使用汽油等燃料，你如何开动汽车 |
|
这个我的说法不够严谨。。。换个说法（不得调用与时间相关的api）
|
知，不觉多。不知，乃求知 |
|
|
2007-5-2 13:54 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
11 楼』:
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天直接.....
|
|
|
2007-5-2 17:12 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
12 楼』:
| Quote: | Originally posted by slore at 2007-5-2 04:12 AM:
VBS可以写类：
哈哈，但是不知道类要怎么应用……
P的太慢了，试了下算8000天直接..... |
|
谢谢提出问题所在。。
下个版本，会判断 查询的天数问题。。这样就可以最快的计算了。
大于30天的。用月减。
大于一年的。判断是否闰年然后减。。
这样就可以快很多了。
|
知，不觉多。不知，乃求知 |
|
|
2007-5-2 17:20 |
|
|
youxi01
高级用户
积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
|
『第
13 楼』:
其实，老斑竹 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
|
|
|
2007-5-2 17:22 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
14 楼』:
| Quote: | Originally posted by youxi01 at 2007-5-2 04:22 AM:
其实，老斑竹 willsort 早就写过了 相应的代码。不过，相关计算原理我到目前为止，还是没有想明白。
利用该代码，就可以写出挑战题目相关要求。 ... |
|
算法很简单。。
也比我的用得聪明。。。但因为没有考虑闰年的存在。。
计算长一点的天数时就会出问题。。。
若加入闰年的判断。。会好很多。
|
知，不觉多。不知，乃求知 |
|
|
2007-5-2 17:34 |
|
|
youxi01
高级用户
积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
|
『第
15 楼』:
没考虑闰年，你测试过了吗？
我的测试怎么“觉得”它已经考虑过闰年呢？！
其实，它肯定考虑过了，至于计算原理我真的是不清楚。
|
|
|
2007-5-2 17:47 |
|
