求一金額轉英文程序，請有的朋友幫忙，謝謝啦！很急啊！！！！

alen001 2006-04-21 10:58:55

如題

...全文

167 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

dfwxj 2006-04-22

打赏
举报

不会读，不知道英文读数规则

十豆三 2006-04-22

打赏
举报

Delphi的例子：
http://tech.cixiong.com/t/200404/15/0171570.html

十豆三 2006-04-22

打赏
举报

Delphi的例子：

http://tech.cixiong.com/t/200404/15/0166305.html

十豆三 2006-04-22

打赏
举报

http://www.devedu.com/develop/2005-11-16/2731/default.aspx

十豆三 2006-04-22

打赏
举报

请参考这个例子：
http://www.itwen.com/07prog/02cc/cc20060316/38953.html

遗憾的是这个不是VFP的代码

TERRYYRRET 2006-04-22

打赏
举报

请参考：
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=171426

FUNCTION UPPERRMB
PARAMETER RMB
PRIVATE UNIT, NUMBER, I, RETVAR
UNIT = '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟'
NUMBER = '零壹贰叁肆伍陆柒捌玖'
RMB = INT(RMB*100+0.5)
RETVAR = ''
DO WHILE RMB>0
RETVAR = SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVAR
RMB = INT(RMB/10)
UNIT = SUBSTR(UNIT,3)
ENDDO
RETVAR = STRTRAN(RETVAR,'零仟','零')
RETVAR = STRTRAN(RETVAR,'零佰','零')
RETVAR = STRTRAN(RETVAR,'零拾','零')
RETVAR = STRTRAN(RETVAR,'零角','零')
DO WHILE '零零'$RETVAR
RETVAR = STRTRAN(RETVAR,'零零','零')
ENDDO
RETVAR = STRTRAN(RETVAR,'零亿','亿')
RETVAR = STRTRAN(RETVAR,'零万','万')
RETVAR = STRTRAN(RETVAR,'亿万','亿零')
RETVAR = STRTRAN(RETVAR,'零零','零')
RETVAR = STRTRAN(RETVAR,'零圆','圆')
RETVAR = STRTRAN(RETVAR,'零分','整')
RETVAR = IIF(LEN(RETVAR)=0,'零圆整',RETVAR)
RETURN RETVAR

不过你的是英文，你可以在字串中，把各单位用逗号格开

然后再用at()找到其位置就可以了

这年头有很多稀奇古怪的软件，网站，无聊的时候可以打发时间，或者分享给朋友乐呵一下俗话说，存在即合理，所以说它们合理，但是又没啥用，所以说有病今天就来盘点一波在线发音转换器地址：https://uahh.syouzyo.org/fyzhq这不是个翻译网站，就单纯的是个在线发音网站输入上中文，选择一种语言，它会找到接近的发音显示在下边先听下测试：就是这样：卵用没用，但是比较好玩~北京话生成器地址：ht...

滞环控制simulink仿真模型

打开链接下载源码： https://pan.quark.cn/s/589796089f72 C++课程设计任务列表，涵盖以下内容：1、识别并显示10至99范围内，各位数乘积超过各位数和的数值，例如数字12不满足条件，因为1乘以2小于1加2，故不输出；而数字27满足条件，因为2乘以7大于2加7，因此需要输出该数。2、开发一个功能，用于从用户输入的任意数量实数中找出最大值与最小值：首先要求用户输入一个正整数n，代表数值的个数，随后用户可输入任意n个实数，程序需找出这n个数中的最大值和最小值并将它们展示出来。3、实现两个已排序数组的合并操作：设有数组A和B，且假设这两个数组的元素均已按照降序排列。编写程序将A和B合并成一个新的数组C，并确保C中的元素同样保持降序排列。int A[10]={123, 86,80, 49,33,15,7,0,-1,-3}；int B[10]={100,64,51,50,27,19,15,12,5,2}；4、设计一个函数，用于计算特定分数序列前n项的总和，该序列为1/2,1/3,1/4,1/5,1/6,1/7,...。要求在主程序中提示用户输入一个整数n，并验证输入的合法性（n需大于1方为有效），若输入合法，则调用求和函数并显示计算结果。5、编写一个程序，计算两个用户输入日期之间的天数差：用户需以year1，month1，day1和year2，month2，day2的格式输入两个日期，程序随后计算这两个日期之间的天数间隔，并将结果输出到屏幕上。要求编制具有如下原型的函数difs2Date：long GetDayDifference（int y1,int m1,int d1,int y2,int m2,int d2）；并在主函数中调用此函数，将计...

代码下载地址： https://pan.quark.cn/s/ee8627e4e6d7 ABAP调试器是一种功能强大的工具，可用于在执行期间对ABAP代码进行检验。除了常规的核心功能（例如逐行运行代码以及检验变量、字段符号和引用的值）之外，它还提供了一些辅助性的特性，能够简化并压缩调试会话的时长。并非所有使用者都熟悉这些辅助特性。SAP ABAP调试器是处理和优化ABAP代码开发与维护工作的核心资源，它配备了多样的功能来协助开发人员在运行状态下进行检验和排除故障。此资源着重阐述了ABAP调试器的一些高级特性，涵盖了深入分析调用堆栈、系统级调试、更新会话调试以及提升调试效率的方法。 1. **深入分析调用堆栈**：除了常规的应用程序调试，开发人员有时需要对调用堆栈的内部层级进行深入调试，特别是在错误出现在异步执行的更新处理或系统级程序时。通过启用**系统级调试**，可以访问通常不公开的系统代码，但这也会导致调用堆栈的显著增加，因此需要审慎操作。 2. **系统级调试**：对于不含业务逻辑的系统级程序，开发人员通常无需进行调试。然而，在特定情形下，例如进行错误追踪时，可能需要进入系统代码。借助调试器的“系统调试启用/禁用”选项，可以赋予对系统程序的调试权限。 3. **更新会话调试**：在处理异步更新任务，例如持久化业务数据时，错误可能发生在更新任务内部。激活**更新会话调试**，在更新任务完成后，调试器将自动启动，展示执行路径。比如，在变更成本中心后，通过输入调试指令 "/h" 启动调试，保存后能够看到更新过程中的错误。 4. **分析调用堆栈**：在进行深入调试时，调用堆栈是至关重要的。通过分析调用堆栈，能够定位到引发问题的具体位置，如在VB_V2_NORMAL...