根据数字的读法，写了一个把数字转成中文字符串的程序

参数一为数字

参数二为是不是反回人民币大写

参数三为是不是直接读数字，否则带有十百等单位

参数四为设置小数点后面的位数，默认为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 Integer) As 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) + 1, 1)

    Else

      GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)

      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, 1, 1)

    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) + 1, 1) + 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) + 1, 1)

      Next i

    End If

  End If

End Function