PB9.0以上小写转大写

string SL,JE,M,DXJE   integer N,I,J,W SL = "零壹贰叁肆伍陆柒捌玖"   JE = "分角元拾佰仟万拾佰仟亿"   M=trim(XXJE)   N=posw(M,".")   M=replace(M,N,1,"")                   //去掉小数点   N = lenw(M)                            //字符串长度   J = N; DXJE = ""                      //置初值   For I = 1 To N      W = integer(midw(M, I, 1))          //取出一位数值      If W > 0 Then        DXJE = DXJE + midw(SL, W + 1, 1)  //数值        DXJE = DXJE + midw(JE, J, 1)      //单位      ElseIf W = 0 Then        If midw(JE, J, 1) = "万" Then           DXJE = DXJE + midw(JE, J, 1)   //万位必保        ElseIf midw(JE, J, 1) = "元" Then           If Lenw(M) = 3 Then              DXJE = DXJE + "零"         //元前零           End If           DXJE = DXJE + "元"            //元位必保           If integer(midw(M, I + 1, 1)) > 0 And len(M) > 3 Then              DXJE = DXJE + midw(SL, W + 1, 1)     //元后零           End If        ElseIf integer(midw(M, I + 1, 1)) > 0 Then //有效零           DXJE = DXJE + midw(SL, W + 1, 1)        ElseIf integer(midw(M, I)) = 0 Then        //后继全零           If J >= 7 Then DXJE = DXJE + "万"           If J >= 3 Then DXJE = DXJE + "元"           DXJE = DXJE + "整"           Exit        End If     End If     J = J - 1   Next   return DXJE   //返回值