关于VB遍程

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:06:21
我做了一个数字大小写的人民币转换,它是已小数点为界限开始区分的.
小数点前是元,十,百,千,万.小数点后是,角,分,厘,我该怎么写当遇见小数点后该怎么办.怎么让他显示我的角,分,厘.为什么,

Private Sub Form_Load()
MsgBox DaXie(123.45)
End Sub
Public Function DaXie(txtJE As Double) As String
On Error GoTo err1
Dim I As Long '循环变量
Dim K As Long '记录整数位循环位置
Dim NC As String '输入金额 '
Dim chrNum As String '保存从字串中取出的数字
Dim c1 As String '中文大写单位
Dim c2 As String '中文角分
Dim c3 As String '中文大写数字
Dim Zheng As String '整数部分
Dim Xiao As String '小数部分

NC = Trim(Format(txtJE, "##0.00"))
c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
c2 = "角分"
c3 = "玖捌柒陆伍肆叁贰壹"
If NC = 0 Then
DaXie = "零元整"
Exi