小写金额转换成大写金额的函数

编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用Powerbuilder写的函数，长达四五十行之巨，后来我自己用DELPHI写了一个函数，寥寥几行代码就搞定：
function TForm1.xTOd(i:Real):string;
const
d='零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿';
var
m,k:string;
j:integer;
begin
k:='';
m:=floattostr(int(i*100));
for j:=length(m) downto 1 do
k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+
d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2];
xTOd:=k;
end;

调用：
procedure TForm1.Button1Click(Sender: TObject);
var
Sum:real;
begin
sum:=12.34;
showmessage('人民币大写:'+xTOd(Sum));
end;

小写金额转换成大写金额的函数相关推荐

工具篇——MoneyFormatUtil（用于将人民币小写金额转换成大写金额）
写代码的四点: 1.明确需求.要做什么? 2.分析思路.要怎么做?(1,2,3--) 3.确定步骤.每一个思路要用到哪些语句.方法和对象. 4.代码实现.用具体的语言代码将思路实现出来. 学习新技术的 ...
PB中小写金额转换成大写金额（发票类型）
PB中小写金额转换成大写金额 //================================================================= // 功能:小写金额转换成大写金额 ...
Java工具包：小写金额转换成大写金额
源代码如下 package com.jian.stringUtil;/*** 工具类:小写金额转换成大写金额* * @author jianxuanbing* */ @SuppressWarnings ...
使用javabean把小写金额转换成大写金额
public static void main(String[] args) {moneyConversion mc=new moneyConversion();String money=" ...
将小写金额转换成大写金额[存储过程版]
CREATE FUNCTION FAtoC /* 金额阿拉伯数字转换为中文的自定义函数 */ ( @ChangeMoney Money ) RETURNS VarChar(100) AS BEGIN ...
win7计算机名改成大写,图文解读win7系统excel数字小写金额转换成汉字大写金额的措施...
有很多网友在使用电脑的过程总难免会遇到win7系统excel数字小写金额转换成汉字大写金额的情况.针对win7系统excel数字小写金额转换成汉字大写金额的问题,我给大家整理总结了详细的解决步骤.近日 ...
阿拉伯数字小写金额转换成中文大写金C额程序说明
阿拉伯数字小写金额转换成中文大写金额C程序说明 1.问题的提出寒假帮同学交缴话费时,不经意间看到收据上同时有小写金额和大写金额,想想各种各样的票据诸如缴费收据.银行业务回单.商场销售凭证.专用发票等 ...
小写数字转大写_不得不说的Excel小技巧：设置单元格格式将小写金额转换成大写...
大家好,我是小秋,近期一段时间比较忙,没有在今日头条上更新原创文章了.希望朋友们多多见谅,下面与大家分享一个Excel实用小技巧:如何设置单元格格式将小写金额转换成大写? 1.应用场景在报销单.收据 ...
C语言中把小写字符串转换成大写用函数,一个容易的将小写字符串转换成大写的函数...
一个简单的将小写字符串转换成大写的函数我用的是VC++6.0,恳请大家帮忙看看到底哪里出错了. #include void uppers(char *Dest,char *Sour) { while ...

小写金额转换成大写金额的函数

小写金额转换成大写金额的函数相关推荐

最新文章

热门文章