View difference between Paste ID: 4tZigvuh and tznx0BSu
SHOW: | | - or go back to the newest paste.
1
###################################################################
2
#
3
#  FOR ROUTER OS v7.10 (later)
4
#
5-
#  Apply code from this source: https://forum.mikrotik.com/viewtopic.php?f=9&t=127050&p=625209#p625209
5+
6
#
7
#  Edit to support RouterOS v7.10
8
#  release: 16/06/2023
9-
# * * * * * WARNING * * * * * 
9+
10-
# 2023/06/16 : IF ROS verion >= 7.10 Please use : https://pastebin.com/4tZigvuh
10+
11
####
12
13
:local date
14
:local time
15
:local monthr  {"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"}
16
17
18
:set date [/system clock get date]
19-
:local mdays  {31;28;31;30;31;30;31;31;30;31;30;31}
19+
20-
:local months {"jan"=1;"feb"=2;"mar"=3;"apr"=4;"may"=5;"jun"=6;"jul"=7;"aug"=8;"sep"=9;"oct"=10;"nov"=11;"dec"=12}
20+
21
:local yy [:tostr [:pick $date 0 4]]
22
:local dd [:tostr [:pick $date 8 10]]
23-
:local dd  [:tonum [:pick $date 4 6]]
23+
:local mm [:tonum [:pick $date 5 7]]
24-
:local yy [:tonum [:pick $date 7 11]]
24+
:local mmStr "$[:pick $monthr ($mm-1)]"
25-
:local month [:pick $date 0 3]
25+
26
# DD/MM/YY - HH:MM:SS
27-
:local mm (:$months->$month)
27+
# :set $res "$dd/$mm/$yy - $time" 
28
29-
:local dm [:pick $mdays ($mm-1)]
29+
# MMM DD, YY - HH:MM:SS
30-
:if ($mm=2 && (($yy&3=0 && ($yy/100*100 != $yy)) || $yy/400*400=$yy) ) do={ :set dm 29 }
30+
:set $res "$mmStr $dd, $yy - $time"
31
32-
:while ($dd>$dm) do={
32+