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