ExcelFunction

構文
ExcelFunction
引数
戻値

プログラム

//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
// 
//////////////////////////////////////////////////
MODULE ExcelFunction
	CONST Excel = CREATEOLEOBJ("Excel.Application")
	FUNCTION ASC(str)
		RESULT = Excel.Evaluate("ASC(" + str + ")")
	FEND
	FUNCTION BAHTTEXT(num)
		RESULT = Excel.Evaluate("BAHTTEXT(" + num + ")")
	FEND
	FUNCTION CHAR(num)
		RESULT = Excel.Evaluate("CHAR(" + num + ")")
	FEND
	FUNCTION CLEAN(str)
		RESULT = Excel.Evaluate("CLEAN(" + str + ")")
	FEND
	FUNCTION CODE(str)
		RESULT = Excel.Evaluate("CODE(" + str + ")")
	FEND
	FUNCTION DATEVALUE(str)
		RESULT = Excel.Evaluate("DATEVALUE(<#DBL>" + str + "<#DBL>)")
	FEND
	FUNCTION YEN(num, digit = "")
		RESULT = Excel.Evaluate("YEN(" + num + ", " + digit + ")")
	FEND
	FUNCTION EXACT(str1, str2)
		RESULT = Excel.Evaluate("EXACT(" + str1 + ", " + str2 + ")")
	FEND
	FUNCTION FIND(str)
		RESULT = Excel.Evaluate("FIND(" + str + ")")
	FEND
	FUNCTION FINDB(str)
		RESULT = Excel.Evaluate("FINDB(" + str + ")")
	FEND
	FUNCTION FIXED(str, digit = "", separator = "")
		RESULT = Excel.Evaluate("FIXED(" + str + ", " + digit + ", " + separator + ")")
	FEND
	FUNCTION LEFT(str, num = "")
		RESULT = Excel.Evaluate("LEFT(<#DBL>" + str + "<#DBL>, " + num + ")")
	FEND
	FUNCTION LEFTB(str, byte = "")
		RESULT = Excel.Evaluate("LEFTB(" + str + ", " + byte + ")")
	FEND
	FUNCTION LEN(str)
		RESULT = Excel.Evaluate("LEN(<#DBL>" + str + ")")
	FEND
	FUNCTION LENB(str)
		RESULT = Excel.Evaluate("LENB(" + str + ")")
	FEND
	FUNCTION LOWER(str)
		RESULT = Excel.Evaluate("LOWER(" + str + ")")
	FEND
	FUNCTION MID(str, start, num)
		RESULT = Excel.Evaluate("MID(" + str + ", " + start + ", " + num + ")")
	FEND
	FUNCTION MIDB(str, start, num)
		RESULT = Excel.Evaluate("MIDB(" + str + ", " + start + ", " + num + ")")
	FEND
	FUNCTION PROPER(str)
		RESULT = Excel.Evaluate("PROPER(" + str + ")")
	FEND
	FUNCTION REPLACE(str, start, length, replace)
		RESULT = Excel.Evaluate("REPLACE(" + str + ", " + start + ", " + length + ", " + replace + ")")
	FEND
	FUNCTION REPLACEB(str, start, byte, replace)
		RESULT = Excel.Evaluate("REPLACEB(" + str + ", " + start + ", " + byte + ", " + replace + ")")
	FEND
	FUNCTION REPT(str, num)
		RESULT = Excel.Evaluate("REPT(" + str + ", " + num + ")")
	FEND
	FUNCTION RIGHT(str, num = "")
		RESULT = Excel.Evaluate("RIGHT(<#DBL>" + str + "<#DBL>, " + num + ")")
	FEND
	FUNCTION RIGHTB(str, byte = "")
		RESULT = Excel.Evaluate("RIGHTB(" + str + ", " + byte + ")")
	FEND
	FUNCTION SEARCH(str, target, start = "")
		RESULT = Excel.Evaluate("SEARCH(" + str + ", " + target + ", " + start + ")")
	FEND
	FUNCTION SEARCHB(str, target, start = "")
		RESULT = Excel.Evaluate("SEARCHB(" + str + ", " + target + ", " + start + ")")
	FEND
	FUNCTION SUBSTITUTE(str1, str2, str3, target = "")
		RESULT = Excel.Evaluate("SUBSTITUTE(" + str1 + ", " + str2 + ", " + str3 + ", " + target + ")")
	FEND
	FUNCTION T(num)
		RESULT = Excel.Evaluate("T(" + num + ")")
	FEND
	FUNCTION TEXT(num, format)
		RESULT = Excel.Evaluate("TEXT(" + num + ", <#DBL>" + format + "<#DBL>)")
	FEND
	FUNCTION TRIM(str)
		RESULT = Excel.Evaluate("TRIM(" + str + ")")
	FEND
	FUNCTION UPPER(str)
		RESULT = Excel.Evaluate("UPPER(" + str + ")")
	FEND
	FUNCTION VALUE(str)
		RESULT = Excel.Evaluate("VALUE(" + str + ")")
	FEND
ENDMODULE