原创：计算星期几的脚本

17941487

朋友在么?脚本出错了...
脚本是根据你最后一次修改得到的
从08年开始就出错了,
1号应该星期2,显示成星期0了,
2号变成了星期2,
3号星期4,
今天4号就成了星期6,
只看见星期246
星期135就没有显示了...



今天是星期5,可是已经成星期6了,有解决办法么?


[ 本帖最后由 17941487 于 2008-1-4 19:24 编辑 ]

17941487

通过修改基准年搞掂了,不过原因我搞不懂....

已经显示正确

hcb

原因是对本月的判断有逻辑错误，修改后的脚本如下:

##############################################################
#脚本名称:week                                               #
#脚本功能:计算当前日期是星期几                               #
#脚本用法:在其他脚本中运行/sys scr run week                  #
#                         :delay 1s                          #
#         然后用变量$WEEK取得计算结果，0为星期天             #
#脚本作者:hcb                                                #
#创建日期:2007-11-30                                         #
##############################################################

:global WEEK 0
#-------------------------------------------------------
#取当前日期，变成数字YY(年)，MM(月),DD(日)
:set str (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec)
:set tmp [/sys clock get date]
:set YY [:tonum([:pick $tmp 7 11])]
:set s [:pick $tmp 4 6]
:if([:find $s "0"]=0) do={:set s [:pick $s 1 [:len $s]]}
:set DD [:tonum($s)]
:set n 1
:set MM $n
:set s [:pick $tmp 0  3]
:foreach i in=$str do={
  :if($s=$i) do={:set MM $n}
  :set n ($n + 1)
  }
#------------------------------------------------------
#以2000年1月1日星期6为基准,
#计算2000年1月1日到现在经过了多少天
#设置基准年
:set y1 2000
#设置基准年1月1日是星期几
:set w1 6
#计算初始天数，即星期几-1
:set day 0
:if($w1>0) do={:set day ($w1 - 1)} else={:set ady 6}
#计算到现在的总天数
:set d 0
:for y from=$y1 to=$YY do={
  :set m2 12
  :if($y=$YY) do={:set m2 $MM}
  :for m from=1 to=$m2 do={
#   ####若是本月，则该月取现在天数
    :if($y=$YY && $m=$MM) do={:set d $DD} \
    else={
#     ####若是2月，要考虑平月闰月
      :if($m=2) do={
#       ####润年是四年一润
        :if($y -($y/4)*4=0) do={:set d 29} else={:set d 28}
        }
      :if($m!=2) do={
#       ####若是小月，则该月天数为30天,否则是31天
        :if($m=4||$m=6||$m=9||$m=11) do={:set d 30} else={:set d 31}
        }
      }
#    ####总天数加该月天数
    :set day ($day + $d)
    }
  }
#----------------------------------------------------------
#计算总天数除以7的余数就是星期几
#这是一个特殊的算法，由于ROS没有求余的运算，又不支持小数，故如此
:set WEEK ($day -($day/7)*7)

leeming163

这种贴要顶啊.支持!!!!!

mbala555

请问日期如何比较.如jan/22/2009经过12天后是X年X月X日.脚本怎么写?谢谢

mbala555

哪位高人可否指点一下?

mbala555

请教一个根据当前时间求10天后的日期的脚本.谢谢
例如今天jan/25/2009经过12天后是X年X月X日.脚本怎么写?谢谢

mbala555

哪位高人帮帮忙,谢谢!