1.bak

征管辅助

function hjdx
parameters Money
CMoney=Allt(Str(Money,16,2))
*定义数组
DIME CaseFormat(10)
CaseFormat(1) ="壹"
CaseFormat(2) ="贰"
CaseFormat(3) ="叁"
CaseFormat(4) ="肆"
CaseFormat(5) ="伍"
CaseFormat(6) ="陆"
CaseFormat(7) ="柒"
CaseFormat(8) ="捌"
CaseFormat(9) ="玖"
Dime Unit(3)
Unit(1) ="拾"
Unit(2) ="佰"
Unit(3) ="仟"
*开始转换
M_C=""
M_Cmoney=""
MoneyLen=len(CMoney)
y=0
For z=MoneyLen To 1 step -1
    Nowmoney=val(substr(CMoney,z,1))
    IF Nowmoney>0
        do case
            Case z = MoneyLen
                M_Cmoney=CaseFormat(Nowmoney)+"分"
            Case z = MoneyLen-1
                M_Cmoney="圆"+CaseFormat(Nowmoney)+"角"+M_Cmoney
            Case z = MoneyLen-3
                M_Cmoney=CaseFormat(Nowmoney)+M_Cmoney
            Case z < MoneyLen-3
                  IF mod((y+1),4)>0
                    M_Cmoney=CaseFormat(Nowmoney)+Unit(mod(y+1,4))+M_Cmoney
                  Else
                    M_J = int((y+1)/4)-1
                    IF M_J>0
                        IF M_J = 1 or M_J = 3
                                M_C = "万"+m_C
                           Else
                                M_C = "亿"+m_C
                           Endif 
                       EndIF 
                       IF left(M_Cmoney,2)="万" 
                            M_Cmoney=right(M_Cmoney,len(M_Cmoney)-2)
                       EndIF 
                       M_Cmoney=CaseFormat(Nowmoney)+M_C+M_Cmoney
                    EndIF
        EndCase
     Else
        do case
            Case z = MoneyLen-1
                IF Empty(M_Cmoney)
                    M_Cmoney="圆整"
                Else
                    M_Cmoney="圆零"+M_Cmoney
                EndIF 
             Case z < MoneyLen-3
                IF mod((y+1),4)>0
                    IF substr(M_Cmoney,1,2)#"零" and !substr(M_Cmoney,1,2)$"万亿圆" 
                            M_Cmoney="零" +M_Cmoney
                    EndIF 
                Else
                    M_J = int((y+1)/4)-1
                    IF M_J>0
                        IF M_J = 1 or M_J = 3
                            M_C = "万"+m_C
                        Else
                            M_C = "亿"+m_C
                        Endif 
                    EndIF 
                    IF substr(M_Cmoney,1,2)="万" 
                        M_Cmoney=right(M_Cmoney,len(M_Cmoney)-2)
                    EndIF 
                    M_Cmoney=M_C+M_Cmoney
               EndIF
           EndCase 
       EndIf 
       y=y+1 
EndFor
return M_Cmoney

? hjdx(12.12)