UWSC辞典

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

構文

1. Double = uwscToSerial( uwscTime )

引数

uwscTime

UWSC時間

戻値

シリアル値

プログラム

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

解説

1. 2行目

   	uwscDate = uwscTime / 86400
   	uwscDate = uwscTime / 86400
   

   秒から日に単位変換

2. 3行目

   	RESULT = 36526 + uwscDate
   	RESULT = 36526 + uwscDate
   

   「1899/12/30 00:00:00」からの時間