UndefinedFunction

Public Const treatdivision as integer = 0
・
・
・
Public funds1 as integer
Public funds2 as integer
・
・
・
Dim nT as integer
・
・
・
Private luckyitem() as Integer
・
・
・
Private Sub SetService()
	Redim luckyitem(4)
・
・
・
	luckyitem(0) = animal_e
	luckyitem(1) = animal_f
	luckyitem(2) = animal_g
	luckyitem(3) = animal_h
	luckyitem(4) = animal_i
・
・
・
Private function kansu1(byref datei as string,byval dateh as string) as boolean
　const animal_num as string = "kansu1"
・
・
・
 dim tSql as string
・
・
・
For nT = LBound(luckyitem) To UBound(luckyitem)
	i_tSql = i_tSql & luckyitem(nT) & ","
・
・
・
 If luckyitem(nT) <> animal_g Then
 	tSql = ""
 	tSql = "select sum(売上高) from リアルタイム情報"
 	tSql = tSql & " where 集計日 = " & format(datei, "yyyymmdd")
 	tSql = tSql & " and 決済区分 = " & treatdivision
 	tSql = tSql & " and 水族館ID = " & funds1
 	tSql = tSql & " and 都道府県ID = " & funds2
 	tSql = tSql & " and 集計区分 = " & luckyitem(nT)
	tSql = tSql & " group by 集計日,決済区分,水族館ID,都道府県ID,集計区分"
・
・
・