UWSC辞典

構文

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//////////////////////////////////////////////////
// 【引数】
//   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