当前位置：文档之家 › 数字转为英文大写

数字转为英文大写

  • 格式：pdf
  • 大小：1.08 MB
  • 文档页数：5

下载文档原格式

  / 5

合集下载

英文数字大小写转换公式

英文数字大小写转换公式

英文数字大小写转换公式
（原创版）
目录
1.英文数字大小写转换公式的概述
2.大写数字和小写数字的转换规则
3.公式的应用实例
4.总结
正文
1.英文数字大小写转换公式的概述
在数学和计算机科学中，英文数字大小写转换公式是一种将数字从一种书写形式转换为另一种书写形式的方法。

这种转换通常用于将数字从大写形式转换为小写形式，或将数字从小写形式转换为大写形式。

英文数字大小写转换公式可以帮助我们方便地进行这种转换。

2.大写数字和小写数字的转换规则
大写数字和小写数字的转换规则相对简单。

大写数字是指数字的字母形式，例如 1 的大写形式是 I，2 的大写形式是 II，3 的大写形式是III，以此类推。

小写数字则是指数字的阿拉伯数字形式，例如 1 的小写形式是 1，2 的小写形式是 2，3 的小写形式是 3，以此类推。

3.公式的应用实例
例如，如果我们有一个数字 123，我们希望将其转换为大写形式，我们可以使用英文数字大小写转换公式，即：
大写数字 = 小写数字÷ 1000 + (小写数字 - 大写数字× 100) × 26
根据这个公式，我们可以计算出 123 的大写形式为 IHC。

同样，如果我们有一个大写数字，例如 IHC，我们希望将其转换为小写形式，我们可以使用以下公式：
小写数字 = 大写数字× 100 + 大写数字 - 55
根据这个公式，我们可以计算出 IHC 的小写形式为 123。

4.总结
英文数字大小写转换公式是一种方便的工具，可以帮助我们在大写和小写数字之间进行转换。

excel数字转换字母函数

excel数字转换字母函数

excel数字转换字母函数Excel中有许多函数可以实现不同的功能，其中就包括将数字转换为字母的函数。

这个函数的作用在于，将数字转换为其对应的英文字母，方便用户进行数据处理，比如命名单元格、创建工作表等。

常见的将数字转换为字母的函数有两种：1. 使用CHAR函数CHAR函数可以将指定的数字转换为相应的ASCII字符。

在ASCII码表中，大写字母A的编号为65，小写字母a的编号为97，因此可以通过将数字加上对应的编号来实现数字转化为字母。

例如，将数字1转化为对应的大写字母A，可使用以下公式：= CHAR(65+1-1)其中，65表示大写字母A的ASCII码，1-1表示数字1所对应的ASCII偏移量。

2. 使用INDEX函数INDEX函数在查找时使用的是数组，可以将数字对应的字母放在一个数组中，然后使用INDEX函数来查找对应的字母。

= {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S"," T","U","V","W","X","Y","Z"}= INDEX(A1:A26,1,1)其中，A1:A26表示数组的范围，1表示行数，1表示列数。

需要注意的是，上述公式中使用的数组必须是横向的，因此如果需要将数字转换为小写字母，则需要将数组范围修改为纵向的。

EXCEK中阿拉伯数字日期转换为中文大写方法

EXCEK中阿拉伯数字日期转换为中文大写方法

---------------------------------------------------------------最新资料推荐------------------------------------------------------ EXCEK中阿拉伯数字日期转换为中文大写方法EXCEK 中阿拉伯数字日期转换为中文大写方法OFFICE 2019-02-14 19:53:53 阅读 58 评论 0 字号：大中小订阅一、日期转换为中文大写 1、日期中年中文大写的公式设置在表示年的单元格输入：=TEXT(MID(A5,1,1),[DBNUM2])TEXT(MID(A5,2,1),[DBNUM2])TEXT(M ID(A5,3,1),[DBNUM2])TEXT(MID(A5,4,1),[DBNUM2]) MID 函数是提取字符函数，公式中MID(A5,1,1)，表示从 A5 单元格数字左第一个字符起提取一个字符，结果是 2 。

TEXT函数将阿拉伯数字转换为中文大写，公式中TEXT(MID(A5,1,1),[DBNUM2])表示将2转换为贰。

整个公式由四个文本连接符号连接而成，结果是贰零零叁。

不能直接利用TEXT函数将2003转换为中文大写，因为TEXT(2003,[DBNUM2])的结果是贰仟零叁，所以需将2003逐个数字转换为中文大写。

2、日期中月中文大写的公式设置在表示月的单元格输入：=IF(B511,零TEXT(B5,[DBNUM2]),TEXT(B5,[DBNUM2])) IF 函数是一个条件判断函数，整个公式可以表述为：如果 B5 单元格月份数为 1-10 之间数字，则将该数字转换为中文大写的同时，在前面加零，如当前是 5 月，则结果是零伍，否则1/ 11直接将 B5中月份数字转换为中文大写，如当前是 11 月，则结果是壹拾壹。

3、日期中日中文大写公式设置在表示日的单元格输入：=IF(OR(C511,C5=20,C5=30),零TEXT(C5,[DBNUM2]),TEXT(C5,[DBNUM2])) 公式中OR(C511,C5=20,C5=30)表示C5 或者小于 11，或者等于 20，或者等于 30。

表格内数字自动生成英文大写的方法

表格内数字自动生成英文大写的方法

表格内数字自动生成英文大写的方法要将表格内的数字自动生成英文大写，可以使用以下方法：1. 使用Excel的公式：Excel提供了一个内置的函数PROPER 用于将文本转换为标题样式（首字母大写）。

可以将表格中的数字先转换为文本，然后使用PROPER函数将其转换为英文大写。

例如，假设数字位于A1单元格，可以在B1单元格中使用以下公式：`=PROPER(TEXT(A1,"0"))`。

这将自动生成A1单元格中数字的英文大写形式。

2. 使用VBA宏：如果你熟悉VBA编程，可以使用宏来自动生成英文大写。

以下是一个示例宏的代码：```vbaSub ConvertToEnglishUppercase()Dim cell As RangeFor Each cell In SelectionIf IsNumeric(cell.Value) Thencell.Value =Application.WorksheetFunction.Proper(CStr(cell.Value))End IfNext cellEnd Sub```将以上代码复制到VBA编辑器中，然后保存并关闭编辑器。

在Excel中选择要转换为英文大写的数字范围，然后运行此宏。

它将遍历选定区域的每个单元格，并将其中的数字转换为英文大写。

3. 使用编程语言：如果你具备编程能力，也可以使用编程语言来实现这个功能。

不同的编程语言有不同的函数和库可用于将数字转换为英文大写。

例如，在Python中，可以使用第三方库Num2words来实现这个功能。

以下是一个示例代码：```pythonfrom num2words import num2wordsdef convert_to_english_uppercase(number):return num2words(number, lang='en').upper()# 将数字5转换为英文大写result = convert_to_english_uppercase(5)print(result) # 输出：FIVE```你可以根据自己的喜好选择适合你的编程语言，然后使用相应的函数或库来实现数字到英文大写的转换。

EXCEL文本函数-数字小写换大写英文大小写互换

EXCEL文本函数-数字小写换大写英文大小写互换

EXCEL文本函数-数字小写换大写/英文大小写互换在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15EXCEL中数字小写换大写方法一：在单元格A2中输入小写数字123.12B2处输入以下公式=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF (ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR (FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND (A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")EXCEL中数字小写换大写方法二：在单元格A2中输入小写数字123.12B2处输入以下公式=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-IN T((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TE XT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10) -INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"))EXCEL中数字小写换大写方法三：=IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2* 10))*10),"[DBNum2]G/通用格式")&"分")EXCEL中数字小写换大写方法四：=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM 2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"& IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT (A2,1),"[DBNUM2]")&"分"))看看结果是不是出现了你想要的?应该有你需要的大写金额了公式的由来:仟分位公式如下:=TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]")佰分位公式如下:=TEXT(IF(LEN(INT($A1))>=3,MID($A1,LEN(INT($A1))-2,1),""),"[DBNum2]")第一位小数的公式:=TEXT(MID($A1,FIND(".",$A1)+1,1),"[DBNum2]")第二位小数的公式:=TEXT(MID(TEXT($A1,"0.00"),FIND(".",$A1)+2,1),"[DBNum2]") 其他依此类推用Excel函数将货币数值由阿拉伯数字自动生成为中文大写格式如图是全部用Excel函数自编农业银行转帐支票套打工具，图中内容是需要打印到转帐支票上内容，其中A-D列为支票存根部分，我们利用Excel函数对要填写大部分内容建立公式后，只要输入支票存根部分的三项基本信息（A6-A8单元格）：收款单位、金额、用途，其他内容全部自动生成。

java字符转大写方法

java字符转大写方法

java字符转大写方法在Java编程语言中，字符转大写是一个常见的操作需求。

无论是对用户输入的文本进行处理，还是在处理字符串时对其中的字母进行转换，我们经常需要将字符转换为大写形式。

在Java中，有多种方法可以实现字符转大写的功能。

方法一：使用Character类的静态方法Java中的Character类提供了一些静态方法可以用于字符的转换和处理。

其中，`toUpperCase(char c)`方法可以将一个字符转换为大写形式，返回一个新的字符。

示例代码如下：```javachar lowercase = 'a';char uppercase = Character.toUpperCase(lowercase);System.out.println(uppercase); // 输出 'A'```这种方法非常简单，只需要通过调用Character类的`toUpperCase()`方法即可。

但需要注意的是，该方法只对英文字母进行转换，对于其他字符（如数字、标点符号等），将不会发生任何转换。

方法二：使用String类的`toUpperCase()`方法除了Character类提供的方法之外，String类也有一个`toUpperCase()`方法可以将字符串中的所有字符转换为大写形式。

示例代码如下：```javaString lowercaseString = "hello world";String uppercaseString = lowercaseString.toUpperCase();System.out.println(uppercaseString); // 输出 "HELLO WORLD"```这种方法可以处理字符串中的所有字符，不仅限于英文字母。

因此，如果需要将一个字符串的所有字母都转换为大写形式，可以使用这种方法。

c语言中输入小写字母输出大写字母的程序

标题：C语言中输入小写字母输出大写字母的程序在C语言中，输入小写字母，输出大写字母是一个非常基础但又非常实用的功能。

在本文中，将从简单的字符处理和ASCII码转换开始，逐步深入探讨如何编写一个高效且稳定的程序来实现这一功能。

1. 字符处理和ASCII码在C语言中，字符是以ASCII码存储和处理的。

ASCII码是一种用于表示文本的编码标准，在这个标准中，每个字符都对应一个唯一的数字。

大写字母和小写字母在ASCII码中是有规律的排列的，大写字母的ASCII码要比小写字母的ASCII码小一个固定的值。

这就为我们实现输入小写字母输出大写字母的功能提供了基础。

2. 简单的小写转大写程序我们可以编写一个简单的程序，实现输入一个小写字母，输出一个对应的大写字母的功能。

以下是一个简单的C语言程序示例：```c#include <stdio.h>int m本人n() {char lowercase, uppercase;printf("请输入一个小写字母：");scanf("c", lowercase);uppercase = lowercase - 32;printf("对应的大写字母是：c\n", uppercase);return 0;}```在这个程序中，我们首先通过`scanf`函数获取用户输入的小写字母，并且通过简单的ASCII码转换，得到对应的大写字母。

这个程序非常简单，但是具有很好的可读性和易懂性。

3. 更加稳健的输入输出程序然而，上面的程序有一个致命的缺陷，就是没有对用户的输入进行任何检查，如果用户输入的不是小写字母，程序可能会出现意料之外的错误。

为了实现更加稳健的输入输出程序，我们需要添加一些用户输入的检查和提示。

```c#include <stdio.h>int m本人n() {char lowercase, uppercase;printf("请输入一个小写字母：");scanf(" c", lowercase); // 注意这里加了一个空格，用于清空输入缓冲区if (lowercase >= 'a' lowercase <= 'z') { // 判断输入是否为小写字母uppercase = lowercase - 32;printf("对应的大写字母是：c\n", uppercase);} else {printf("输入错误！请输入一个小写字母。

数字转换为英文大写

数字转换为英⽂⼤写之前⼀个⽹友⼯作中需要把数字转换为英⽂⼤写，于是就给他写了⼀个。

函数有两个参数，数字和单位。

第⼆个参数为计量单位，可以是货币也可以是重量。

代码如下：1Function Num2Str(FullNum As Variant, NumUnit As Integer)2Dim NumLen As Integer3Dim i As Integer4Dim ArrUnit5Dim SubUnit6Dim Factor7Dim Num As Variant8Dim Dec As String910 ArrUnit = Array("Dollar", "Euro", "KG", "KPC")11 SubUnit = Array("Cent", "Cent", "G", "PC")12 Factor = Array(100, 100, 1000, 1000)1314 Num = Int(FullNum)15 Dec = Right(Application.Round(((FullNum - Num) * Factor(NumUnit)), 0) + 1000, 3)1617 NumLen = Application.RoundUp(Len(Num) / 3, 0)18 Num2Str = ""1920For i = NumLen To1Step -121 Num2Str = Num2Str & NumPart(Mid(10 ^ (3 * NumLen) + Num, 2 + 3 * NumLen - 3 * i, 3), i)22Next i2324 Num2Str = Num2Str & "" & ArrUnit(NumUnit)25If Num > 1Then Num2Str = Num2Str & "s"26If Dec <> "000"Then27 Num2Str = Num2Str & NumPart(Dec, 1) '28 Num2Str = Num2Str & "" & SubUnit(NumUnit)29If Dec <> "001"Then Num2Str = Num2Str & "s"30End If31 Num2Str = Num2Str & "."3233End Function3435Function NumPart(Num As String, Part As Integer)36Dim ArrNum37Dim ArrTen38Dim ArrTeen39Dim iDigit As Integer4041 ArrNum = Array("One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")42 ArrTen = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninty")43 ArrTeen = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")4445 iDigit = Left(Num, 1)46If iDigit <> 0Then NumPart = "" & ArrNum(iDigit - 1) & " Hundred"4748 iDigit = Mid(Num, 2, 1)49If iDigit = 1Then50 iDigit = Right(Num, 1)51 NumPart = NumPart & "" & ArrTeen(iDigit) & ""52GoTo Unit53Else54If iDigit <> 0Then NumPart = NumPart & "" & ArrTen(iDigit - 2)55End If5657 iDigit = Right(Num, 1)58If iDigit <> 0Then NumPart = NumPart & "" & ArrNum(iDigit - 1)5960 Unit:61If Part = 3Then NumPart = NumPart & " Million "62If Part = 2Then NumPart = NumPart & " Thousand "6364End Function。

小写转换大写

小写转换大写EXCEL文本函数-数字小写换大写/英文大小写互换2007年10月17日星期三 13:04在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15EXCEL中数字小写换大写方法一：在单元格A2中输入小写数字123.12B2处输入以下公式=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2 ]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")EXCEL中数字小写换大写方法二：在单元格A2中输入小写数字123.12B2处输入以下公式=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"))EXCEL中数字小写换大写方法三：=IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分")EXCEL中数字小写换大写方法四：=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分"))看看结果是不是出现了你想要的?应该有你需要的大写金额了公式的由来:仟分位公式如下:=TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]")佰分位公式如下:=TEXT(IF(LEN(INT($A1))>=3,MID($A1,LEN(INT($A1))-2,1),""),"[DBNum2]")第一位小数的公式:=TEXT(MID($A1,FIND(".",$A1)+1,1),"[DBNum2]")第二位小数的公式:=TEXT(MID(TEXT($A1,"0.00"),FIND(".",$A1)+2,1),"[DBNum2]") 其他依此类推^^^^^^^^^^^^^^^^用Excel函数将货币数值由阿拉伯数字自动生成为中文大写格式如图是全部用Excel函数自编农业银行转帐支票套打工具，图中内容是需要打印到转帐支票上内容，其中A-D列为支票存根部分，我们利用Excel函数对要填写大部分内容建立公式后，只要输入支票存根部分的三项基本信息（A6-A8单元格）：收款单位、金额、用途，其他内容全部自动生成。

英文数字大小写转换公式

英文数字大小写转换公式
英文数字大小写转换是指将英文单词或数字的大小写进行转换。

下面是一些常见的转换公式：
1. 大写转小写：将英文单词或数字的大写字母转换为小写字母，可以使用以下公式：
对于英文单词，可以使用str.lower()函数进行转换。

对于数字，可以使用str.lower()函数将其转换为字符串，
然后再使用int()函数将其转换为整数。

2. 小写转大写：将英文单词或数字的小写字母转换为大写字母，可以使用以下公式：
对于英文单词，可以使用str.upper()函数进行转换。

对于数字，可以使用str.upper()函数将其转换为字符串，
然后再使用int()函数将其转换为整数。

3. 首字母大写：将英文单词的首字母转换为大写字母，可以使
用以下公式：
对于英文单词，可以使用str.capitalize()函数进行转换。

4. 全部大写或全部小写：将英文单词的所有字母都转换为大写
或小写，可以使用以下公式：
对于英文单词，可以使用str.upper()函数将其转换为大写，或使用str.lower()函数将其转换为小写。

需要注意的是，以上公式适用于字符串和数字的转换，而对于
其他数据类型可能需要使用不同的方法进行转换。

此外，转换公式
的具体实现可能因编程语言而异，以上公式是基于常见的编程语言
的函数进行描述的。

希望以上回答能够满足你的需求。

如果你有任何其他问题，请
随时提问。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

给大家推荐一个英语微信群 Empty Your Cup
英语微信群是目前学习英语最有效的方法，群里都是说英语，没有半个中文，而 且规则非常严格，是一个超级不错的英语学习环境，群里有好多英语超好的超牛 逼的人，还有鬼佬和外国美眉。其实坦白说，如果自己一个人学习英语太孤独， 太寂寞，没有办法坚持，好几次都会半途而废。只要你加入到那个群里以后，自 己就会每天都能在群里坚持学，坚持不停地说和练，由于是付费群，群里的成员 学习氛围非常强，每天的训练度都非常猛，本来很懒惰的你一下子就被感染了， 不由自主地被带动起来参与操练，不好意思偷懒，别人的刻苦学习精神会不知不 觉影响你，Empty Your Cup英语微信群(进群加为星 601332975)可以彻底治 好你的拖延症，里面学员都非常友好，总是给你不断的帮助和鼓励，让你在学英 语的路上重新燃起了斗志，因为每天都在运用，你的英语口语就能得到了迅猛的 提升，现在可以随便给一个话题，都能用英文滔滔不绝的发表5分钟以上对这个话 题的看法和观点，想提高英语口语的 可以加入进来，It really works very well.
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
'****************' Main Function *'**************** Function Spe 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 Fen and set MyNumber to Yuan amount If DecimalPlace > 0 Then Fen = 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 Yuan = Temp & Place(Count) & Yuan If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Yuan Case "" Yuan = "No Yuan" Case "One" Yuan = "One Yuan" Case Else Yuan = Yuan & " Yuan" End Select Select Case Fen Case "" Fen = " and No Fen" Case "One" Fen = " and One Fen" Case Else Fen = " and " & Fen & " Fen" End Select
SpellNumber = Yuan & Fen 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 "