CSDN博客

img thinkeasy

用VB把数字转成中文字符串

发表于2002/6/6 9:39:00  3428人阅读

根据数字的读法,写了一个把数字转成中文字符串的程序
参数一为数字
参数二为是不是反回人民币大写
参数三为是不是直接读数字,否则带有十百等单位
参数四为设置小数点后面的位数,默认为4
使用方法是
t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”
t=GetChinaNum(2005.436, True, , 7)'返回“贰仟零伍元肆角肆分”
t=GetChinaNum(2005.436, , True, 7)'返加“二零零五点四三六”

下面是程序代码

Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As IntegerAs String
    
On Error Resume Next
    num 
= Trim(Str(Int(otherNum)))
   
    
If isRMB Then
        numwei 
= "拾佰仟万拾佰仟亿拾佰仟"
        numshu 
= "零壹贰叁肆伍陆柒捌玖拾"
    
Else
        numwei 
= "十百千万十百千亿十百千"
        numshu 
= "零一二三四五六七八九十"
    
End If
    
If otherNum < 20 And otherNum >= 10 Then
        num 
= Right(num, 1)
        GetChinaNum 
= Left(numwei, 1)
    
End If
    
For i = 1 To Len(num)
        bstr 
= Mid(num, i, 1)
        
If numOption Then
            GetChinaNum 
= GetChinaNum + Mid(numshu, Val(bstr) + 11)
           
        
Else
            GetChinaNum 
= GetChinaNum + Mid(numshu, Val(bstr) + 11)
            
If bstr = "0" Then
                
If Mid(numwei, Len(num) - i, 1= "" Or Mid(numwei, Len(num) - i, 1= "亿" Then
                    
Do While Right(GetChinaNum, 1= ""
                        GetChinaNum 
= Left(GetChinaNum, Len(GetChinaNum) - 1)
                    
Loop
                    GetChinaNum 
= GetChinaNum + Mid(numwei, Len(num) - i, 1)
                
End If
               
            
Else

                GetChinaNum 
= GetChinaNum + Mid(numwei, Len(num) - i, 1)
            
End If
            GetChinaNum 
= Replace(GetChinaNum, "零零""")
        
End If
    
Next i
    
If numOption = False Then
        
Do While Right(GetChinaNum, 1= ""
            GetChinaNum 
= Left(GetChinaNum, Len(GetChinaNum) - 1)
        
Loop
    
End If
    
If isRMB Then
        numrmb 
= "元角分"
        GetChinaNum 
= GetChinaNum + Mid(numrmb, 11)
        
If Val(num) <> otherNum Then
            num 
= Trim(Str(Round(otherNum - Val(num), 2)))
            
For i = 2 To Len(num)
                bstr 
= Mid(num, i, 1)
                GetChinaNum 
= GetChinaNum + Mid(numshu, Val(bstr) + 11+ Mid(numrmb, i, 1)
            
Next i
        
Else
            GetChinaNum 
= GetChinaNum + ""
        
End If
    
Else
        
If Val(num) <> otherNum Then
            
If dotNum = 0 Then dotNum = 4
            num 
= Trim(CStr(Round(otherNum - Val(num), dotNum)))
            
If GetChinaNum = "" Then GetChinaNum = ""
            GetChinaNum 
= GetChinaNum + ""
            
For i = 2 To Len(num)
                bstr 
= Mid(num, i, 1)
                GetChinaNum 
= GetChinaNum + Mid(numshu, Val(bstr) + 11)
            
Next i
        
End If
    
End If
End Function

 

 

0 0

相关博文

我的热门文章

img
取 消
img