将数字转换为单词

最新推荐文章于 2021-09-18 21:14:11 发布
翻译 最新推荐文章于 2021-09-18 21:14:11 发布 · 349 阅读 · 0

在访问对象对话框中，单击“模块”

单击新建以创建新模块

复制以下代码，然后将其粘贴到新模块中： 


Function SayNo(ByVal N As Currency) As String 
    Const Thousand = 1000@
    Const Million = Thousand * Thousand
    Const Billion = Thousand * Million
    Const Trillion = Thousand * Billion 
    If (N = 0@) Then SayNo = "zero": Exit Function 
    Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = ""
    Dim Frac As Currency: Frac = Abs(N - Fix(N))
    If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N))
    Dim AtLeastOne As Integer: AtLeastOne = N >= 1 
    If (N >= Trillion) Then
        Debug.Print N
        Buf = Buf & SayNoDigitGroup(Int(N / Trillion)) & " trillion"
        N = N - Int(N / Trillion) * Trillion
        If (N >= 1@) Then Buf = Buf & " "
    End If 
    If (N >= Billion) Then
        Debug.Print N
        Buf = Buf & SayNoDigitGroup(Int(N / Billion)) & " billion"
        N = N - Int(N / Billion) * Billion
        If (N >= 1@) Then Buf = Buf & " "
    End If 
    If (N >= Million) Then
        Debug.Print N
        Buf = Buf & SayNoDigitGroup(N \ Million) & " million"
        N = N Mod Million
        If (N >= 1@) Then Buf = Buf & " "
    End If 
    If (N >= Thousand) Then
        Debug.Print N
        Buf = Buf & SayNoDigitGroup(N \ Thousand) & " thousand"
        N = N Mod Thousand
        If (N >= 1@) Then Buf = Buf & " "
    End If 
    If (N >= 1@) Then
        Debug.Print N
        Buf = Buf & SayNoDigitGroup(N)
    End If 
    If (Frac = 0@) Then
        Buf = Buf
    ElseIf (Int(Frac * 100@) = Frac * 100@) Then
        If AtLeastOne Then Buf = Buf & " and "
        Buf = Buf & Format$(Frac * 100@, "00") & "/100"
    Else
        If AtLeastOne Then Buf = Buf & " and "
        Buf = Buf & Format$(Frac * 10000@, "0000") & "/10000"
    End If 
    SayNo = Buf
End Function 
Private Function SayNoDigitGroup(ByVal N As Integer) As String 
    Const Hundred = " hundred"
    Const One = "one"
    Const Two = "two"
    Const Three = "three"
    Const Four = "four"
    Const Five = "five"
    Const Six = "six"
    Const Seven = "seven"
    Const Eight = "eight"
    Const Nine = "nine"
    Dim Buf As String: Buf = ""
    Dim Flag As Integer: Flag = False 
    Select Case (N \ 100)
        Case 0: Buf = "": Flag = False
        Case 1: Buf = One & Hundred: Flag = True
        Case 2: Buf = Two & Hundred: Flag = True
        Case 3: Buf = Three & Hundred: Flag = True
        Case 4: Buf = Four & Hundred: Flag = True
        Case 5: Buf = Five & Hundred: Flag = True
        Case 6: Buf = Six & Hundred: Flag = True
        Case 7: Buf = Seven & Hundred: Flag = True
        Case 8: Buf = Eight & Hundred: Flag = True
        Case 9: Buf = Nine & Hundred: Flag = True
    End Select 
    If (Flag <> False) Then N = N Mod 100
    If (N > 0) Then
        If (Flag <> False) Then Buf = Buf & " "
    Else
        SayNoDigitGroup = Buf
        Exit Function
    End If 
    Select Case (N \ 10)
        Case 0, 1: Flag = False
        Case 2: Buf = Buf & "twenty": Flag = True
        Case 3: Buf = Buf & "thirty": Flag = True
        Case 4: Buf = Buf & "forty": Flag = True
        Case 5: Buf = Buf & "fifty": Flag = True
        Case 6: Buf = Buf & "sixty": Flag = True
        Case 7: Buf = Buf & "seventy": Flag = True
        Case 8: Buf = Buf & "eighty": Flag = True
        Case 9: Buf = Buf & "ninety": Flag = True
    End Select 
    If (Flag <> False) Then N = N Mod 10
    If (N > 0) Then
        If (Flag <> False) Then Buf = Buf & "-"
    Else
        SayNoDigitGroup = Buf
        Exit Function
    End If 
    Select Case (N)
        Case 0:
        Case 1: Buf = Buf & One
        Case 2: Buf = Buf & Two
        Case 3: Buf = Buf & Three
        Case 4: Buf = Buf & Four
        Case 5: Buf = Buf & Five
        Case 6: Buf = Buf & Six
        Case 7: Buf = Buf & Seven
        Case 8: Buf = Buf & Eight
        Case 9: Buf = Buf & Nine
        Case 10: Buf = Buf & "ten"
        Case 11: Buf = Buf & "eleven"
        Case 12: Buf = Buf & "twelve"
        Case 13: Buf = Buf & "thirteen"
        Case 14: Buf = Buf & "fourteen"
        Case 15: Buf = Buf & "fifteen"
        Case 16: Buf = Buf & "sixteen"
        Case 17: Buf = Buf & "seventeen"
        Case 18: Buf = Buf & "eighteen"
        Case 19: Buf = Buf & "nineteen"
    End Select 
    SayNoDigitGroup = Buf 
End Function 
保存该模块并调用它，例如NumbersToWords

现在从您的表单中使用语法调用函数

说不（您的数值）

举个例子（由于我不知道您的技能水平，对不起），这就是我进行测试的方式。 完成上述操作以创建模块后，我运行了一个带有文本框和标签的简单表单； txtTextNumbers和lblTextWords 


Private Sub txtTextNumbers_Exit(Cancel As Integer)
     Me.lblTextWords.Caption = SayNo(Me.txtTextNumbers.Value)
End Sub 
输入数据并退出文本框后，标签将包含与输入数字相等的词。

当然，可以在其他事件中使用相同的代码。

我只将作者称为M8KWR。

From: https://bytes.com/topic/access/insights/625202-converting-numbers-words

cxygs5788
关注
把数字数值转换成单词形式
weixin_33720452的博客
12-11 320
原文:把数字数值转换成单词形式《C和指针》第7章第6道编程题： 编写函数  void written_amount( unsigned int amount, char *buffer );  它把 amount 表示的值转换为单词形式，并存储于 buffer 中。这个函数可以在一个打印支票的程序中使用。例如，如果 amount 的值是 16 312，那么 buffer 中存储的字符串应该是...
数字与英文单词的转换
江东小熊熊
11-04 3026
import java.util.Scanner;//导入一个Scanner包 public class Conversion { //---------------------------------------------定义变量------------------------------------------------------ static String x[]={"zer
【算法】Integer to English Words 数字转换单词
无良剑&染的博客
02-06 410
【算法】Integer to English Words 数字转换单词题目解题思路代码实现 题目 Convert a non-negative integer to its english words representation. Given input is guaranteed to be less than 2^31 - 1. Example 1: Input: 123 Output: “...
Integer to English Words 整数转为英文单词
jeason29的专栏
09-15 602
Convert a non-negative integer to its english words representation. Given input is guaranteed to be less than 231 - 1. For example, 123 -> "One Hundred Twenty Three" 12345 -> "Twelve Thousand Th
将数字转换为单词：num2words 将数字转换为单词-matlab开发
05-30
`num2words` 是一个专为此目的设计的工具，它可以将阿拉伯数字转换为英文单词。本篇文章将深入探讨 `num2words` 函数的工作原理、使用方法以及可能的应用场景。 首先，`num2words` 函数的核心功能是处理个位、十位...
digits2text:将数字转换为单词-将数字转换为单词-从数字转换为越南货币
03-27
"digits2text"项目显然旨在解决这个问题，它提供了将数字转换为可读的单词，特别是在越南货币上下文中。在越南，货币单位是越南盾（越南语：đồng），其数值表达方式与许多其他语言不同，因此，转换工具至关重要。 ...
inflect:正确生成复数，序数，不定冠词； 将数字转换为单词
05-03
将数字转换为单词。 概要 import inflect p = inflect . engine () # METHODS: # plural plural_noun plural_verb plural_adj singular_noun no num # compare compare_nouns compare_nouns compare_adjs # a an # ...
inWordsJS:一个将数字转换为单词的 jQuery 插件
06-17
inWordsJS 是一个 jquery 插件，用于将数字转换为单词。 基本上，它从不同类型的 html 标签中提取文本，将值转换为单词。 动机 有时您只想将数字转换为文字以提高数字的可读性，例如准备发票、价格清单等。 用法 只...
number-to-words:将数字转换为单词
05-11
包含一些将数字转换为单词，序数单词和序数数字的util方法。 安装 npm install number-to-words 原料药 toOrdinal(number) 使用后缀将整数转换为字符串。 如果数字为小数，则将删除小数。 var converter = ...
将整型值转换为单词的形式（练习）
ljyf5593的专栏
10-14 659
#include #include static char *digits[] = {"", "ONE ", "TWO ", "THREE ", "FOUR ", "FIVE ", "SIX ", "SEVEN ", "EIGHT ", "NINE ", "TEN ", "ELE
python阿拉伯数字转换为英文,python将英文单词表示的数字转换成阿拉伯数字的代码...
weixin_42504649的博客
03-27 763
import re_known = {'zero': 0,'one': 1,'two': 2,'three': 3,'four': 4,'five': 5,'six': 6,'seven': 7,'eight': 8,'nine': 9,'ten': 10,'eleven': 11,'twelve': 12,'thirteen': 13,'fourteen': 14,'fifteen': 15,'...
数字转换成英语的程序（c++实现）
Sveinn的博客
04-30 6729
数字转换成英文 如何把数字翻译成英文？ 比方1439872321这个数字，看起来很长是不是？ 如果你要用中文表达这个数字，你应该就按照4个数字一划，从右边开始，把它划成：14，3987，2321所以这个数字就是十四亿，三千九百万，两千三百二十一，但英文和中文表示的方法是不同的！ 英语表示和中文表示的不同 我们中国人在计算数的时候，是按照四个零为万，八个零为亿的。老外则是三个零一计，在英文里，三个...
数字转换英语c语言程序,C语言编写的英语数字转化代码(数字转化为用英语表达的数字).doc...
weixin_29234423的博客
05-18 1862
C语言编写的英语数字转化代码(数字转化为用英语表达的数字)#include"stdio.h"main (){FILE *fp ;int i ,n ,g,s;char *a[20]={"zero","one","two","three","four","five","six","seven","eight","nine ","ten","eleven","twelve","thirteen","fo...
如何将阿拉伯数字（整数）转换为英文单词（C/C++ 解决方案）？
beifangdetian的博客
09-18 2313
将非负整数转换为其英文单词表示。给定的输入保证小于 2 31 – 1。 例如， 123——“123” 12345—— “ 12345” 1234567——“1234567” 您是否看到将数字划分为单词块的模式？例如123和123000。 有很多边缘情况。有哪些好的测试用例？您的代码是否适用于诸如 0 之类的输入？还是1000010？中间块为零，不应打印出来 将数字分组为千位（3 位）。您可以编写一个辅助函数，该函数采用小于 1000 的数字并将该块转换为单词。 C++解决方案 某些 Corner 情况
C现代实现方法 数字转换为英文单词
wuweiweinanjing的专栏
10-23 5335
#include int main() { int d=0,a=0,b=0; printf("Enter a two-digit number:"); scanf("%d",&d); if(d/10==0|| (d/100)!=0) { perror("d"); exit(1); } a=d/10
lenz0a89.gsd Lenze E84AYCPM gsd
最新发布
12-05
lenz0a89.gsd Lenze E84AYCPM gsd
c语言将数字转化为单词
09-29
在C语言中，将数字转换为对应的英文单词通常涉及到库函数或自定义函数实现。一种常见的方法是通过递归函数来处理每一位的转化，并维护适当的词头和单位。这里有一个简化版的示例，展示了如何创建一个基础版本的十进制整数转英文： ```c #include <stdio.h> #include <stdlib.h> #include <string.h> // 数字到英文单词的对应数组 const char *ones[] = {"", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"}; const char *tens[] = {"", "", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"}; // 辅助函数用于拼接单个位数的英文单词 char* num_to_word(int num) { if (num == 0) return ones[0]; else if (num < 10) return ones[num]; else if (num < 20) return tens[num / 10] + (num % 10 > 0 ? " " : ""); else { return tens[num / 10 - 2] // 单位（ten, twenty, thirty...） + ((num % 10 == 0) ? "" : "-" + ones[num % 10]); } } // 主函数，将整数转换为英文字符串 void int_to_word(char *result, int number) { int digits[] = {number / 1000, (number % 1000) / 100, (number % 100) / 10, number % 10}; char *word; for (int i = 0; i < sizeof(digits); ++i) { word = num_to_word(digits[i]); if (i != 0) { strcat(result, " "); if (digits[i] >= 2) strcat(result, word); else strcat(result, "hundred"); } else { strcpy(result, word); } } } int main() { int number = 425; char buffer[100]; int_to_word(buffer, number); printf("Number %d in words is: %s\n", number, buffer); return 0; } ``` 这个程序只能处理不超过三位数的整数，实际应用中可能需要更复杂的解决方案来支持更大范围的数字。请注意，这只是一个基本示例，实际项目中可能需要考虑性能优化和错误处理。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符  | 博主筛选后可见
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值