zoukankan      html  css  js  c++  java
  • 一亿亿以下的阿拉伯数字转中文的自定义函数

     Function trans(number As String) As String
      Dim x As String, y As String
      x = Split(number, ".")(0)
      Const upcase = "○一二三四五六七八九 十百千万十百千万亿十百千万十百千万"         '定义汉字
      If Val(x) >= 10 ^ 16 Then MsgBox "数目太大,无法换算!请输入一亿亿以下的数字!", 64, "错误提示": Exit Function '只能转换一亿亿以下的数字!
      If InStr(number, ".") > 0 Then
      y = Split(number, ".")(1)
      For i = 0 To 9
      y = Replace(y, i, Mid(upcase, i + 1, 1))
      Next
      y = "点" & y
      End If
      For i = 1 To Len(x)
      trans = trans & Mid(upcase, Mid(x, i, 1) + 1, 1) & Mid(upcase, Len(x) - i + 11, 1)
      Next
      trans = Replace(trans, "○千", "○")
      trans = Replace(trans, "○百", "○")
      trans = Replace(trans, "○十", "○")
       
      Do While InStr(trans, "○○") > 0
      trans = Replace(trans, "○○", "○")
      Loop
      trans = Replace(trans, "○亿", "亿")
      trans = Replace(trans, "○万", "万")
    If Val(x) < 20 Then trans = Replace(trans, "一十", "十")
    trans = Trim(trans) & y
      End Function
       
     Private Sub Command1_Click()
       MsgBox trans("67454801211.783450980896")
      End Sub

  • 相关阅读:
    Rust资料
    CMake & Ninja
    @Configurable
    Hibernate startup -> 配置SessionFactory实例
    Vue 渲染函数
    Spring 5 新特性
    @Configuration 注解的用途
    AOP
    AnnotationConfigApplicationContext.() -> Unit
    C编译优化
  • 原文地址:https://www.cnblogs.com/fengju/p/6336299.html
Copyright © 2011-2022 走看看