Hour

構文
UString = Hour( シリアル値 )
引数
シリアル値
時間を表すシリアル値を指定
戻値
(例)0…00、0.5…12、1.0…24

プログラム

//////////////////////////////////////////////////
// 【引数】
//   シリアル値 : 時間を表すシリアル値を指定 
// 【戻値】
//   例)0…00、0.5…12、1.0…24 
//////////////////////////////////////////////////
FUNCTION Hour(serial)
	RESULT = REPLACE(FORMAT(INT(serial * 24), 2), " ", "0")
FEND