数字货币书写转英文货币书写

static void totalEng(Args _args)
{
    int                 sLen,sFind,sFindA,sFindB;
    str                 num2En,num2En_int,num2EnA,num2EnB,num2EnA_1,num2EnB_1,num2En_F;
    real                ttlPrice = 99999.99;
    ;

    if (ttlPrice<0)
        ttlPrice=ttlPrice*-1;
    num2En      = numeralsToTxt_EN(ttlPrice);
    sLen        = strlen(num2En);
    sFind       = strfind(num2En,'/',1,sLen)-2;
    num2En_int  = strdel(num2En,sFind-4,sLen);

    num2EnA     = numeralsToTxt_EN(str2num(substr(num2En,sFind,2)));
    //num2EnB     = numeralsToTxt_En(str2num(subStr(num2En,sFind+1,1)));
    sFindA      = strfind(num2EnA,'/',1,strlen(num2EnA))-11;
    //sFindB      = strFind(num2EnB,'/',1,strLen(num2EnB))-10;
    num2EnA_1     = substr(num2EnA,4,sFindA);
    //num2EnB_1     = subStr(num2EnB,4,sFindB);

    if (ttlPrice>=1)
    {
        if (num2EnA_1)
            num2En_F = num2En_int + "and Cents" + num2EnA_1 /*+ num2EnB_1 + " Cents"*/;
        else
            num2En_F = num2En_int;
    }
    else if (ttlPrice<1 && ttlPrice>0)
        num2En_F = num2EnA_1 + " Cents";// + num2EnB_1;
    //else
    //    return '';

    //return strfmt("@ACT2132",strupr(Currency::find("HKD").Txt),"",strupr(strLRTrim(strdel(num2En_F,1,4))));
    info(strfmt("@ACT2132",strupr(Currency::find("HKD").Txt),"",strupr(strLRTrim(strdel(num2En_F,1,4)))));
}