↑の12行目ミスっていたので訂正します RETURN DIA() もしくは IF DIA()==-1 THEN RET=-1 です -つけ忘れてました