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 | + |