2.8w+
社区成员
请教一个十分难的问题,希望大家能帮忙想想！(在线等待)
请教一个十分难的问题,希望大家能帮忙想想！
比如说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
%>
比如说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
%>
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
guolucky2003 2004-08-04
对呀，大家帮手顶顶呀，高手应该出现了吧！！
MagicYangCN 2004-08-04
还有5天的修正怎么算…………
MagicYangCN 2004-08-04
24节气的间隔是每隔15天--好像没什么规律的？
我倒。不是按照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")
%>
<%
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的代码，但看不懂，请大家帮帮忙吧，先谢谢了！！
我看了看原来不是全部都是按--24节气的间隔是每隔15天--好像没什么规律的？
从网上找了一个javascript的代码，但看不懂，请大家帮帮忙吧，先谢谢了！！
19az 2004-08-04
我觉着最起码要有一个字典与之对照,或者自己建一个字典表,没有一个标准不行的
阿_浩 2004-08-04
把24节气的数据保存在数据库中，这样不就好算出了吗？
或你用datadiff函数也可以
或你用datadiff函数也可以
wgb219 2004-08-04
我顶~~~~~~~~~~~~~~~~~`
职业规划指导：消化这些技巧能让你升值一倍！！！ 在担任公司高管的几年间，我面试过数以百计的各个层面的员工，其中最让我感到遗憾的一个现象就是很多人有着非常好的素质，甚至有的还是名校的毕业生，因为不懂得去规划自己的职业，在工作多年后，依然拿着微薄的...
《那些年啊，那些事——一个程序员的奋斗史》九 对于新的4.3＇CMMB板子来说，设计上并不是很难。毕竟之前有做过Telechips的板 子，现在只要在之前的基础上删删减减，然后加上CMMB模块即可。这次的设计是以简单 为主，只要求有GPS和CMMB即可，其它无关的模块...
《那些年啊，那些事——一个程序员的奋斗史》一 段伏枥，一个瘦小，矮小，根本和“帅”这个字粘不上任何关系的普通人。名字的来源在于其多读了几年书的老爹，总抱着有一天要出书出名乃至于名流千古的美好理想，但可惜现实总是给予他无情的而又现实的打击，于是就...
《那些年啊，那些事——一个程序员的奋斗史》四 ”段伏枥突然觉得奇怪，为何伍定轩会突然提出这个问题。 “你看我的仙人掌。”伍定轩指了指摆在电脑旁边的一盆仙人掌。当初伍定轩决定买这小盆仙人掌的时候，也是从网上听人说，它可以防辐射。 伍定轩...
Thinkpad常见问题大全（转载联想工程师博客） 想要收藏本篇文章请下载Word版 Q：我想升级成VISTA，想问一下，升级之后一键恢复是恢复到XP还是VISTA?A：如果从隐含分区恢复出厂设置，那当然是恢复到出厂时预装的系统；如果是用R&
70个晨会激励哲理小故事 1、面对生命的态度 有位太太请了个油漆匠到家里粉刷墙壁。 油漆匠一走进门，看到她的丈夫双目失明，顿时流露出怜悯的眼光。可是男主人一向开朗乐观，所以油漆匠在那里工作了几天，他们谈得很投机；油漆匠也从未...
我看过的关于职业规划最好最全面的一篇文章 在担任公司高管的几年间，我面试过数以百计的各个层面的员工，其中最让我感到遗憾的一个现象就是很多人有着非常好的素质，甚至有的还是名校的毕业生，因为不懂得去规划自己的职业，在工作多年后，依然拿着微薄的薪水...
一个30岁男人转型码农的平凡之路 今天给大家带来的是一个转行的故事，一个30岁才开始学习编程的小白，资质平平，真正的零基础。他的故事和那些大众喜欢的、夸张的、甚至虚假的华丽转身不同，一点也不精彩、一点也...
一个秋招后计科学生的简单总结 我不是什么计算机大佬，也没有所谓的计算机天赋，这一路走来磕磕绊绊的，踩过许多坑，走了很多弯路，最后也是靠着一些运气，以一个应届生的身份加入到了完美世界（北京）。现在公司安排的员工公寓中，等待HR下发最后...
感谢折磨你的人[一] 第1节 不要因为小钱而感觉受辱 我们用自己的劳动来养活自己，也用自己的劳动创造这个世界。... 正因为如此，每当付出一分劳动，我们都能够...他总是背着一个大背包，沿途与那些流浪的人结伴而行。
一个三非渣本的安卓秋招之路 距离上次更新文章已经过去一个多月了，实在是很抱歉没有按照进度更新博客。最近主要是在忙秋招，前几天也刚刚结束，所以这篇文章就来和大家一起分享我的秋招之路。或许大部分朋友都是从这篇文章————2017腾讯实习...
一位硕士毕业生三个月求职经历与经验的结晶 2007年1月10日，随着在三方协议上郑重签下自己的名字，我的求职历程终于划上了一个圆满的句号。在这三个月漫长而艰辛的过程中，我付出了很多，经历了很多，也收获了很多。这一路走来，要感谢的人太多太多，尤其要...
