请教一个十分难的问题,希望大家能帮忙想想!(在线等待)

guolucky2003 2004-08-03 09:11:16
请教一个十分难的问题,希望大家能帮忙想想!
比如说2004-1-6是小寒,到2004-1-21是大寒,我现在输入2004-1-8,用代码怎样

可以算出他是小寒呢?(24节气的间隔是每隔15天)
我只能做到显示了:
<%
tf="小寒/大寒/立春/雨水/惊蛰/春分/清明/谷雨/立夏/小满/芒种/夏至/小暑/大

暑/立秋/处暑/白露/秋分/寒露/霜降/立冬/小雪/大雪/冬至"
xxutf=split(tf,"/")
y=1
startdate="2004-1-6"
for i=15 to 500 Step 15
xx=DateAdd("d",i,startdate)
response.write xx&" "&xxutf(y)&"<br>"
y=y+1
if y>23 then y=0
next
%>
...全文
132 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
guolucky2003 2004-08-04
对呀,大家帮手顶顶呀,高手应该出现了吧!!
回复
MagicYangCN 2004-08-04
还有5天的修正怎么算…………
回复
MagicYangCN 2004-08-04
24节气的间隔是每隔15天--好像没什么规律的?

我倒。不是按照15天啊
回复
MagicYangCN 2004-08-04
根据楼主的数据,写出以下函数。仅供参考

<%
Function GetJQ(D)
Str="小寒/大寒/立春/雨水/惊蛰/春分/清明/谷雨/立夏/小满/芒种/夏至/小暑/大暑/立秋/处暑/白露/秋分/寒露/霜降/立冬/小雪/大雪/冬至"
Ar = Split(Str,"/")
StartDate="2004-1-6"
Spacing=DateDiff("d",D,startDate) '计算相差天数
Flag=false
If Spacing>0 then
Flag=True
End If
Spacing=Abs(Spacing)

LSub = Spacing\15 '获得时间间隔

TSub=(LSub MOD 24) '获得下标
If Flag Then '如果时间小于2004-1-6日。则反向求下标
TSub=24-TSub
End If
GetJQ=AR(TSub)
End Function
Response.Write GetJQ("2004-1-8")
%>
回复
guolucky2003 2004-08-04
http://netroom.hbu.edu.cn/personal/zgtl/java/sjrq/20.htm
回复
guolucky2003 2004-08-04
我只是想显示当前日期对应是哪一个节气,比如说2004-1-6至20日,都显示小寒到21日就显示大寒
我看了看原来不是全部都是按--24节气的间隔是每隔15天--好像没什么规律的?
从网上找了一个javascript的代码,但看不懂,请大家帮帮忙吧,先谢谢了!!
回复
19az 2004-08-04
我觉着最起码要有一个字典与之对照,或者自己建一个字典表,没有一个标准不行的
回复
阿_浩 2004-08-04
把24节气的数据保存在数据库中,这样不就好算出了吗?
或你用datadiff函数也可以
回复
wgb219 2004-08-04
我顶~~~~~~~~~~~~~~~~~`
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 09:11
社区公告
暂无公告