UWSC時間をシリアル値に変換します。
- 構文
- Double = uwscToSerial( uwscTime )
- 引数
- uwscTime
- UWSC時間
- 戻値
- シリアル値
プログラム
//////////////////////////////////////////////////
// 【引数】
// uwscTime : UWSC時間
// 【戻値】
// シリアル値
//////////////////////////////////////////////////
FUNCTION uwscToSerial(uwscTime)
uwscDate = uwscTime / 86400
RESULT = 36526 + uwscDate
FEND
解説
- 2行目
秒から日に単位変換uwscDate = uwscTime / 86400
- 3行目
「1899/12/30 00:00:00」からの時間RESULT = 36526 + uwscDate
この記事は役に立ちましたか?