自定义函数fun1( )、fun2( )可以合并为一个fun( ) 吗？

（压缩文件中含表文件：kqb.dbf)
我想将下列代码中的自定义函数fun1( )、fun2( )可以合并为一个fun( ) ，不知可行，请高手赐教，万分感谢！！！

CLOSE DATABASES
CLEAR ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)

ALINES(cj,"早,中,晚",",")
ALINES(nj,"5,5,3.5",",")
* SELECT *,fun1("早") 早班,fun1("中") 中班,fun1("晚") 晚班, fun2() hj FROM kqb
                                                 && 在"查询"中显示统计结果
SELECT 姓名,fun1("早") 早班,fun1("中") 中班,fun1("晚") 晚班, fun2() hj FROM kqb INTO TABLE tongji
                                              && 在新表tongji.dbf中显示统计结果
BROWSE

FUNCTION fun1(cj) && 统计早、中、晚班个数
LOCAL i,ret1
ret1 = 0
FOR i=2 TO FCOUNT()
    IF ALLTRIM(EVALUATE(FIELD(i)))==cj
        ret1=ret1+1
    ENDIF
ENDFOR
RETURN ret1
ENDFUNC

FUNCTION fun2() && 统计每个人餐补费用
LOCAL i,ret2
ret2 = 0
FOR i=2 TO FCOUNT()
    ret2= ret2 + VAL(nj[ASCAN(cj,alltrim(EVALUATE(FIELD(i))))])
ENDFOR
RETURN ret2
ENDFUNC