原创：计算星期几的脚本

hcb

由于ros没有星期的数据，给定时调度方面造成一些困扰，虽然也可以换一个思路实现，比如给每天做一个调度，执行间隔为7天，但是显得很烦琐
搜索了很久，也没有找到类似的解决办法，于是经过一些思考就写了一个计算星期几的脚本，经测试达到了预期的设想，由于是在学习期间，也是为了练习一下写脚本的基本功

练习中的心得：任何变量在使用前必须先经过赋值初始化，否则会产生意想不到的结果，我在这方面走了不少弯路，最后才发现是这个问题，新手可以作为一个借鉴



##############################################################
#脚本名称:week                                               #
#脚本功能:计算当前日期是星期几                               #
#脚本用法:在其他脚本中运行/sys scr run week                  #
#         然后用变量$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 DD [:tonum([:pick $tmp 4  6])]
: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 ($w1 - 1)
#计算到现在的总天数
: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={
    :set temp "若是本月，则该月取现在天数,本行是注释"
    :if($m=$m2) do={:set d $DD}\
    else={
      :set temp "若是2月，要考虑平月闰月,本行是注释"
      :if($m=2) do={
        :set temp "润年是四年一润,本行是注释"
        :if($y -($y/4)*4=0) do={:set d 29} else={:set d 28}
        }
      :if($m!=2) do={
        :set tmp "若是小月，则该月天数为30天,否则是31天，本行是注释"
        :if($m=4||$m=6||$m=9||$m=11) do={:set d 30} else={:set d 31}
        }
      }
    :set tmp "总天数加该月天数,本行是注释"
    :set day ($day + $d)
    }
  }
#----------------------------------------------------------
#计算总天数除以7的余数就是星期几
#这是一个特殊的算法，由于ROS没有求余的运算，又不支持小数，故如此
:set WEEK ($day -($day/7)*7)
#----------脚本结束---------

[ 本帖最后由 hcb 于 2007-12-1 13:40 编辑 ]

mbala555

哪位高人帮帮忙,谢谢!

mbala555

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

mbala555

哪位高人可否指点一下?

mbala555

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

leeming163

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

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)

17941487

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

已经显示正确

17941487

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



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


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

everest79

:foreach i in="mon,tue,wed,thu,fri,sat,sun" do={
/ip fir fil add chain=output protocol=icmp \
time=(0 . s . "-" . 23 . h . 59 . m . , . $i) action=add-dst-to-address-list \
address-list=$i address-list-timeout=30s comment=(week . $i)
}
/ping 4.3.2.1 count=2
/ ip firewall address-list
:global week [get [find address=4.3.2.1 dynamic=yes] list]
remove [find address=4.3.2.1 dynamic=yes]
:foreach i in="mon,tue,wed,thu,fri,sat,sun" do={
/ip fir fil remove (week . $i)
}
:log info ([/sys clo get time] . " " . $week . " " . [/sys clo get date]



:if ([/sys sch find start-time=startup]!="") do={
:set tt [/sys sch get [/sys sch find start-time=startup] on-event]
/sys scr set [/sys scr find name=$tt] source=([/sys scr get [/sys scr find name=$tt] source] . "\n:global week 8")
} ELSE={
/sys sch add name="startup" on-event=script-startup start-time=startup
/sys scr add name=script-startup source=":global week 8"
}

俺来写一个

hcb

忘记了，要先对变量赋值，否则出错，这是ROS脚本的特点，一不小心就忘记了
:set day 0
:if($w1>0) do={:set day ($w1 - 1)} else={:set ady 6}
对于该例子中特定的
:set w1 6
你照原来的那样也没问题的，但如果基准改成其他日子，正好是星期天的话，原来的就有问题

17941487

怎么我换了上面的反而显示不出来的?

hcb

再改一句有潜在问题的
原来
#基准初始天数，即星期几-1
:set day ($w1 - 1)
改为
#基准初始天数，即星期几-1
:if($w1>0) do={:set day ($w1 - 1)} else={:set day 6}

kjxxhong

好东西，收藏了。

hcb

今天发现一个错误，今天(2007-12-08)的星期数算出来居然是错误的
一步一步的排查，发现 tonum命令有bug, (或者是我的用法不对?)
发现有时tonum得不到正确结果
在控制台做如下测试
Terminal vt102 detected, using multiline input mode
[admin@MikroTik] > :put [:tonum "01"]
1
[admin@MikroTik] > :put [:tonum "02"]
2
[admin@MikroTik] > :put [:tonum "03"]
3
[admin@MikroTik] > :put [:tonum "04"]
4
[admin@MikroTik] > :put [:tonum "05"]
5
[admin@MikroTik] > :put [:tonum "06"]
6
[admin@MikroTik] > :put [:tonum "07"]
7
[admin@MikroTik] > :put [:tonum "08"]

[admin@MikroTik] > :put [:tonum "09"]

[admin@MikroTik] > :put [:tonum "10"]  
10
[admin@MikroTik] >
发现"08" "09"两个得不到结果
为避免这个错误，就对原来的代码进行一点改进，把前面的0去掉再转换
原来的
:set DD [:tonum([:pick $tmp 4  6])]
改为
:set s [:pick $tmp 4 6]
:if([:find $s "0"]=0) do={:set s [:pick $s 1 [:len $s]]}
:set DD [:tonum($s)]
结果纠正了该错误

完整的代码为:
##############################################################
#脚本名称: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 ($w1 - 1)
#计算到现在的总天数
: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={
    :set temp "若是本月，则该月取现在天数,本行是注释"
    :if($m=$m2) do={:set d $DD}\
    else={
      :set temp "若是2月，要考虑平月闰月,本行是注释"
      :if($m=2) do={
        :set temp "润年是四年一润,本行是注释"
        :if($y -($y/4)*4=0) do={:set d 29} else={:set d 28}
        }
      :if($m!=2) do={
        :set tmp "若是小月，则该月天数为30天,否则是31天，本行是注释"
        :if($m=4||$m=6||$m=9||$m=11) do={:set d 30} else={:set d 31}
        }
      }
    :set tmp "总天数加该月天数,本行是注释"
    :set day ($day + $d)
    }
  }
#----------------------------------------------------------
#计算总天数除以7的余数就是星期几
#这是一个特殊的算法，由于ROS没有求余的运算，又不支持小数，故如此
:set WEEK ($day -($day/7)*7)

[ 本帖最后由 hcb 于 2007-12-8 09:27 编辑 ]