Code: Select all
:delay 600
:global arrMonths {jan="01";feb="02";mar="03";apr="04";may="05";jun="06";jul="07";aug="08";sep="09";oct="10";nov="11";dec="12"}
{
:local file "startup.txt"
:local ndate [/system clock get date]; :local ntime [/system clock get time]
:local itime [/system clock get time]
:local hours [:pick $itime 0 2]
:local minsec [:pick $itime 2 8]
:local mhours [:tonum $hours]
:local msymbl "AM"
:if ($mhours > 11) do={:set msymbl "PM"}
:set mhours ($mhours % 12)
:if ($mhours = 0) do={:set mhours 12}
:if ($mhours < 10) do={:set mhours "0$mhours"}
:local mtime "$mhours$minsec $msymbl"
:global new "TIME:$mtime DATE: $[:pick $ndate 4 6]/$($arrMonths->[:pick $ndate 0 3])/$[:pick $ndate 7 11]"
/file print file="$file"
/file set $file contents=$new
}
Or do this subtraction:
Code: Select all
{
:local time [/system clock get time];
:put ($time-00:10:00)
}
Thanks for your help.
EL DONCITO.