UWSC辞典

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

構文

1. Double = serialToUwsc( serialTime )

引数

serialTime

シリアル値

戻値

UWSC時間

プログラム

//////////////////////////////////////////////////
// 【引数】
//   serialTime : シリアル値 
// 【戻値】
//   UWSC時間 
//////////////////////////////////////////////////
FUNCTION serialToUwsc(serialTime)
	serialDate = serialTime / 86400
	RESULT = GETTIME(serialDate, "18991230000000")
FEND//////////////////////////////////////////////////
// 【引数】
//   serialTime : シリアル値 
// 【戻値】
//   UWSC時間 
//////////////////////////////////////////////////
FUNCTION serialToUwsc(serialTime)
	serialDate = serialTime / 86400
	RESULT = GETTIME(serialDate, "18991230000000")
FEND

解説

1. 2行目

   	serialDate = serialTime / 86400
   	serialDate = serialTime / 86400
   

   秒から日に単位変換

2. 3行目

   	RESULT = GETTIME(serialDate, "18991230000000")
   	RESULT = GETTIME(serialDate, "18991230000000")