#获取年/月/日
:global DateTime
if ($DateTime!=nothing && $DateTime!=””) do={
  :local Year ([:pick $DateTime 7 11])
  :local Month ([:find dec,jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov [:pick $DateTime 0 3]]);:if ($Month=0) do={:set Month 12};
  :local Day [:pick $DateTime 4 6];:if ([:pick $DateTime 4 5] = 0) do={:set Day [:pick $DateTime 5 6]};:set Day ($Day)
  #计算闰年
  :local IsLeapYear no
  if ((($Year / 4) * 4) = $Year) do={
      :set IsLeapYear yes
  } else={
      :set IsLeapYear no
  }
  #计算天数
  :local Days 0
  for i from=1970 to=($Year-1) step=1 do={
      if ((($i / 4) * 4) = $i) do={
         #:log info ($i . ” 闰年”)
         :set Days ($Days + 366)
      } else={
         #:log info ($i . ” 平年”)
         :set Days ($Days + 365)
      }
  }
  :local DMonth (“31″,”28″,”31″,”30″,”31″,”30″,”31″,”31″,”30″,”31″,”30″,”31”);
  :local DMonthLeapYear (“31″,”29″,”31″,”30″,”31″,”30″,”31″,”31″,”30″,”31″,”30″,”31”);
  for i from=0 to=($Month – 2) step=1 do={
      if ($IsLeapYear = yes) do={
          :set Days ($Days + [:pick $DMonthLeapYear $i])
          #:log info ( “***”. $i .” ” . [:pick $DMonthLeapYear $i] )
      } else={
          :set Days ($Days + [:pick $DMonth $i])
          #:log info (“>>>>”. $i .” ” . [:pick $DMonth $i])
      }
  }

  :set Days ($Days + ($Day – 1))

  #获取时/分/秒
  :local Hour [:pick $DateTime 12 14]
  :local Minute [:pick $DateTime 15 17]
  :local Second [:pick $DateTime 18 20]

  :local UnixTime (($Days * 86400) – (8 * 3600) + ($Hour * 3600) + ($Minute * 60) + $Second)

  :log info ($UnixTime)
  :put $UnixTime
}
:delay 0.1
/system script environment remove [ /system script environment find name =”DateTime” ]

#:global DateTime ([/system clock get date].” “.[/system clock get time]);/system script run UnixTime

打赏

微信扫一扫，打赏作者吧～

本文固定链接: https://www.cxy163.net/archives/1546 | 绝缘体