知识库

将数字转成英文

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

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
  • 英文数字练习
  • 英文数字思维导图
  • 英文数字书写规范
  • 数字英文字母样式下载
  • 英文字母对应的数字
  • 描红英文数字字母练习
  • 英文数字书写格式
  • 数字英文怎么读
  • 数字翻译成英文
  • 厦门明道 japanesemomth and son a rough sort of wheel sina*cosb 上古卷轴5nmm怎么卸载 python global 内存 1.62.00是高通基带吗 支持电脑的vr眼镜 c仔高挑女友郭静静合集 premiere cc2017和cs6 war3 hive cpu vccio voltige 美国美人鱼2006百度云 申请注册送38元彩金 i am real bankga dhexe 耳机线控苹果手机 环球艺动影业 powerdvd 16 注册机 vht选项not-allowed japanese hunk tube 不吃苦 你要青春干嘛 兄弟战争之蛇王驾到 dark grey pink raftingyouxi 站在你这边 周杰伦 monser girl 蚕子命理 ps4 港服2017 tqbm33-22 QQ音乐申请大王卡 bios设置西数硬盘密码 房县驾校电话号码多少 misha cross 饮尿 方舟子普洱茶致癌2012 圣彼得堡的英文介绍 ps42017港服会员7折 九院做烤瓷牙挂什么科 庆云人力 米老鼠和唐老鸭里 法斗 org json 转换list nbiot mtk Tenderbabes csgo demos manager

    All Right Reserved 知识库

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

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