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

[guolucky2003]

请教一个十分难的问题,希望大家能帮忙想想！
比如说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
%>

[wgb219]

我顶~~~~~~~~~~~~~~~~~`

[阿_浩]

把24节气的数据保存在数据库中，这样不就好算出了吗？
或你用datadiff函数也可以

[19az]

我觉着最起码要有一个字典与之对照,或者自己建一个字典表,没有一个标准不行的

[guolucky2003]

我只是想显示当前日期对应是哪一个节气,比如说2004-1-6至20日，都显示小寒到21日就显示大寒
我看了看原来不是全部都是按--24节气的间隔是每隔15天--好像没什么规律的？
从网上找了一个javascript的代码，但看不懂，请大家帮帮忙吧，先谢谢了！！

[guolucky2003]

http://netroom.hbu.edu.cn/personal/zgtl/java/sjrq/20.htm

[MagicYangCN]

根据楼主的数据，写出以下函数。仅供参考

<%
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")
%>

[MagicYangCN]

24节气的间隔是每隔15天--好像没什么规律的？

我倒。不是按照15天啊

[MagicYangCN]

还有5天的修正怎么算…………

[guolucky2003]

对呀，大家帮手顶顶呀，高手应该出现了吧！！