uwscToSerial

UWSC時間をシリアル値に変換します。

構文
  1. Double = uwscToSerial( uwscTime )
引数
uwscTime
UWSC時間
戻値
シリアル値

プログラム

////////////////////////////////////////////////// // 【引数】 // uwscTime : UWSC時間 // 【戻値】 // シリアル値 ////////////////////////////////////////////////// FUNCTION uwscToSerial(uwscTime) uwscDate = uwscTime / 86400 RESULT = 36526 + uwscDate FEND

解説

  1. 2行目
    uwscDate = uwscTime / 86400
    秒から日に単位変換
  2. 3行目
    RESULT = 36526 + uwscDate
    「1899/12/30 00:00:00」からの時間