SIGN

構文
SIGN( num )
引数
num
戻値
1
正の数
0
0
-1
負の数
ERR_VALUE
それ以外

プログラム

//////////////////////////////////////////////////
// 【引数】
//   num 
// 【戻値】
//    : 1 
//   正の数、 : 0 
//   0、 : -1 
//   負の数、 : ERR_VALUE 
//   それ以外、 : 
//////////////////////////////////////////////////
FUNCTION SIGN(num)
	SELECT TRUE
		CASE !CHKNUM(num)
			RESULT = ERR_VALUE
		CASE num > 0
			RESULT = 1
		CASE num = 0
			RESULT = 0
		CASE num < 0
			RESULT = -1
	SELEND
FEND