примерно так
{
:local 1 (":") ;
:local 2 ("-") ;
:local output ;
:local time ([/system clock get time]);
:for i from=0 to=([:len $time] - 1) do={
:local char [:pick $time $i] ;
:if ($char = $1) do={
:set $char $2 ;
} ;
:set $output ($output . $char)
} ;
:return $output ;
};
:local time ([:pick [system clock get time] 0 2]."-".[:pick [system clock get time] 3 5]."-".[:pick [system clock get time] 6 8]); :put $time
проверено на RouterOS 7.1.1 и
6.49.2