数字向中文转换

Public Function ChinaNum(ByVal Num As String) As String
On Error GoTo ChinaNumErr
ChinaNum = ""

Dim str_tmp_CN As String
Dim str_tmp_ZS As String
Dim str_tmp_XS As String
Dim I As Long

If VBA.Trim(Num) = "" Then
    GoTo ChinaNumErr
End If

For I = 1 To VBA.Len(Num) Step 1
     Select Case VBA.Mid$(Num, I, 1)
         Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "."
         Case Else
              GoTo ChinaNumErr
     End Select
Next I

If Num Like "*.*" Then
    If Num Like "*.*.*" Then
        GoTo ChinaNumErr
    End If
    I = VBA.InStr(1, Num, ".", vbTextCompare)
    str_tmp_ZS = VBA.Left(Num, I - 1)
    str_tmp_XS = VBA.Right(Num, VBA.Len(Num) - I)


    str_tmp_ZS = zsTOstr(st

阅读终点,创作起航,您可以撰写心得或摘录文章要点写篇博文。去创作
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

shawls

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值