知识库

将数字转成英文

网站:知识库   来源:网络收集

Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Application.Volatile True Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") 'Convert cents and set MyNumber to dollar amount If DecimalPlace >0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &"00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <>"" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <>"" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) >3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars &" Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents &" Cents" End Select SpellNumber = Dollars & Cents

End Function '******************************************* ' Converts a number from 100-999 into text * '******************************************* Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place If Mid(MyNumber, 1, 1) <>"0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) &" Hundred " End If 'Convert the tens and ones place If Mid(MyNumber, 2, 1) <>"0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function '********************************************* ' Converts a number from 10 to 99 into text. * '********************************************* Function GetTens(TensText) Dim Result As String Result = "" 'null out the temporary function value If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19 Select Case Val(TensText) Case 10 Result = "Ten" Case 11 Result = "Eleven" Case 12 Result = "Twelve" Case 13 Result = "Thirteen" Case 14 Result = "Fourteen" Case 15 Result = "Fifteen" Case 16

Result = "Sixteen" Case 17 Result = "Seventeen" Case 18 Result = "Eighteen" Case 19 Result = "Nineteen" Case Else End Select Else ' If value between 20-99 Select Case Val(Left(TensText, 1)) Case 2 Result = "Twenty " Case 3 Result = "Thirty " Case 4 Result = "Forty " Case 5 Result = "Fifty " Case 6 Result = "Sixty " Case 7 Result = "Seventy " Case 8 Result = "Eighty " Case 9 Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) 'Retrieve ones place End If GetTens = Result End Function '******************************************* ' Converts a number from 1 to 9 into text. * '******************************************* Function GetDigit(Digit) Select Case Val(Digit) Case 1 GetDigit = "One" Case 2

GetDigit = "Two" Case 3 GetDigit = "Three" Case 4 GetDigit = "Four" Case 5 GetDigit = "Five" Case 6 GetDigit = "Six" Case 7 GetDigit = "Seven" Case 8 GetDigit = "Eight" Case 9 GetDigit = "Nine" Case Else GetDigit = "" End Select End Function

相关内容
  • EXCEL 中如何将数字转换成英文

    EXCEL 中如何将数字转换成英文

    EXCEL 中如何将数字转换成英文...

  • 如何把小写数字转换成英文?

    如何把小写数字转换成英文?

    如何把小写数字转换成英文?...

  • delphi英文数字转中文数字的办法

    delphi英文数字转中文数字的办法

    delphi英文数字转中文数字的办法...

  • Excel中阿拉伯数字转英文

    Excel中阿拉伯数字转英文

    Excel中阿拉伯数字转英文...

  • 一次性将文章中的数字和英文字母全部改为

    一次性将文章中的数字和英文字母全部改为

    一次性将文章中的数字和英文字母全部改为...

  • 整数的每位数字转换成英文实验

    整数的每位数字转换成英文实验

    整数的每位数字转换成英文实验...

  • PB中把数字金额转换成英文大写   绝对实用

    PB中把数字金额转换成英文大写 绝对实用

    PB中把数字金额转换成英文大写 绝对实用...

  • 数字转换英文VB

    数字转换英文VB

    数字转换英文VB...

  • ASP教程48 如何把小写数字转换成英文?

    ASP教程48 如何把小写数字转换成英文?

    ASP教程48 如何把小写数字转换成英文?...

  • VB将数字翻译成英文

    VB将数字翻译成英文

    VB将数字翻译成英文...

  • 网友在搜
  • 英文数字1到10
  • 英文数字练习
  • 英文数字思维导图
  • 英文数字书写规范
  • 数字英文字母样式下载
  • 英文字母对应的数字
  • 描红英文数字字母练习
  • 英文数字书写格式
  • 数字英文怎么读
  • 数字翻译成英文
  • 字节流和二进制流 美妙天堂卡片大全 excel中trim函数 安德玛天蝎座 尊龙 末代皇帝 窗帘尺码怎么确定 漫画服装齐袍100种画法 佰草集与百雀羚哪个好 ztree treenode传参 centos kvm 管理工具 qq网名(猫的树和什么) zones报警主机上的数字 手机模拟人生怎么杀人 北京卫视官网站首页 手机卡剪小卡教程 bordeaux卢顿2007 もしくは あるいは go语言断言 朝桐光人妻温泉旅行 长城干红赤霞珠 五星 tokyo hot k系列全集 log4j elk 一条日志 reid tool supply pibull bad man 下载 gbt t 1881 2015 有外星虫子的电影大全 华为hg8120c密码 voicemore多听0.35下载 s space.taobao.com 图书馆目录系统 茅岗塘口地块 君威1.6t和2.0哪个好 just be friends罗马音 react中enter触发 truce means rsync 日志格式设置 python string isalpha pm3 使用教程 ummon dengiz 歌词 proxmark3软件下载 logcat b qq飞车黎旭东冠qq皇冠 逃逃和容骁的番外 不锈钢钢筋 海洋工程

    All Right Reserved 知识库

    声明:本站内容源于网络,出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。文章内容仅供参考,请咨询相关专业人士。

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况 网站地图 网站栏目