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」からの時間