How can i get the ROS’s week data?
Because i need my routeros’s scheduler automatic run a script in special week day? help ,
my english poor,sorry!
thanks!
this is a script for get ros’s week ,but i am test ,the result not right! chinese
##############################################################
#脚本名称: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)
#----------脚本结束---------