fastreport 小写转大写金额，函数怎么调用？-CSDN论坛

论坛帮助

CSDN论坛 > Delphi > VCL组件开发及应用

fastreport 小写转大写金额，函数怎么调用？ [问题点数：50分，结帖人linlingwei]

⋅sql server分区间段统计 ⋅Delphi 10.3 在开发android时，等待提示怎么做？ ⋅如何在父窗体中规范的显示子窗体？ 更多帖子 关注私聊空间博客 linlingwei 本版专家分：200 结帖率 100%: 在程序中定义了个函数，如下：
function SmallToBig(NN:Real):AnsiString;//人民币大小写转换

在fastreport中有个字段 memo1统计分页小计的，想进行小写到大写金额的转换。
在fastreport中应该如何处理？

0 2013-12-12 21:43:43

回复数 8 只看楼主引用举报楼主

⋅ 关于页面调用后台变量的问题 ⋅sqlce 怎么进行多库关联查询？？ ⋅Wince6.0下连接SQLCE数据库，怎么提高速度 更多帖子 关注私聊空间博客 sundayzhao 本版专家分：3052: [SmallToBig(<sum("data.Field")>)]

0 2013-12-13 09:12:33

只看TA 引用举报 #1 得分 0

fastreport.net 金额小写转换成大写问题在fastreport.net 需要把小写的金额转换成大写的金额如何转换？急

⋅sql server分区间段统计 ⋅Delphi 10.3 在开发android时，等待提示怎么做？ ⋅如何在父窗体中规范的显示子窗体？ 更多帖子 关注私聊空间博客 linlingwei 本版专家分：200: to sundayzhao：
直接在fastreport里这么写？
[SmallToBig(<sum(frxDBDataset1."tax_total")>)]
根本不行呀

0 2013-12-13 09:29:15

只看TA 引用举报 #2 得分 0

FastReport 创建“人民币大小写转换”自定义函数控件版本是:----------FastReport 3.23.12 Enterpise for d2006 (DeXter)设置如下:----------function TJzpzEdit1.MoneyCn(mmje: Double): string;const s1: string = 零壹贰叁肆伍陆柒捌玖; s2: string = 分角元拾佰仟万拾佰仟亿拾佰仟

⋅问个双系统安装正版杀毒软件的问题 ⋅请问一下，海康系统用的是什么数据库？ ⋅初学者问个类型转换的问题 更多帖子 关注私聊空间博客 zbdzjx 本版专家分：3772: 我之前的做法是：在fastreport中放一个文本，然后在程序中计算出总金额，转换成大写，再写到报表的这个文本中。没有在fastreport中汇总和转换成大写。

0 2013-12-13 10:31:30

只看TA 引用举报 #3 得分 0

FastReport4小写金额转大写金额 FastReport 4 小写金额转中文大写金额,C#代码脚本例子中代码放入Table中TableCell的AfterData事件中

⋅sql server分区间段统计 ⋅Delphi 10.3 在开发android时，等待提示怎么做？ ⋅如何在父窗体中规范的显示子窗体？ 更多帖子 关注私聊空间博客 linlingwei 本版专家分：200: to zbdzjx：
因为我这个是fastreport中的分页小计，金额是动态的，在程序里没法获取，只能在fastreport里进行动态转换。

0 2013-12-13 10:37:53

只看TA 引用举报 #4 得分 0

FastReport 金额转大写 function atoc(a: string): string; var string1, string2, string3, string4, ch1, ch2, s, s1, rmb: string; i, j, k, zero: Integer; begin string1 := '零壹贰叁肆伍陆柒捌玖'; string2 := '佰拾万仟佰拾亿仟佰拾万仟佰拾元

⋅问个双系统安装正版杀毒软件的问题 ⋅请问一下，海康系统用的是什么数据库？ ⋅初学者问个类型转换的问题 更多帖子 关注私聊空间博客 zbdzjx 本版专家分：3772: 引用 4 楼 linlingwei 的回复:
to zbdzjx：
因为我这个是fastreport中的分页小计，金额是动态的，在程序里没法获取，只能在fastreport里进行动态转换。

那就只能将程序中的转换函数代码放到fastreport中了，而且不一定能完全执行，要试试。

0 2013-12-13 12:16:37

只看TA 引用举报 #5 得分 0

⋅sql server分区间段统计 ⋅Delphi 10.3 在开发android时，等待提示怎么做？ ⋅如何在父窗体中规范的显示子窗体？ 更多帖子 关注私聊空间博客 linlingwei 本版专家分：200: to zbdzjx：
那就只能将程序中的转换函数代码放到fastreport中了，请问转换函数如何放到fastreport中呢？谢谢

0 2013-12-13 12:45:10

只看TA 引用举报 #6 得分 0

金额小写转大写 CREATE PROCEDURE [dbo].[TranNumberToBigForDecrypt] ( @n_LowerMoney numeric(15,2), @v_TransType int, @RET VARCHAR(200) output ) --with ENCRYPTION AS /*****************************...

⋅[升两星，散分...]－－第二篇 ⋅[升两星，散分...]--第一篇 ⋅这到底是为什么？ 更多帖子 关注私聊空间博客 gxgyj 本版专家分：13230 红花 2013年10月 Windows专区大版内专家分月排行榜第一 2013年6月 Windows专区大版内专家分月排行榜第一 2013年1月 Windows专区大版内专家分月排行榜第一 2012年11月 Windows专区大版内专家分月排行榜第一 2012年10月 Windows专区大版内专家分月排行榜第一 2012年7月 Windows专区大版内专家分月排行榜第一 2012年6月 Windows专区大版内专家分月排行榜第一 2012年5月 Windows专区大版内专家分月排行榜第一 2012年4月 Windows专区大版内专家分月排行榜第一 黄花 2013年9月 Windows专区大版内专家分月排行榜第二 2013年8月 Windows专区大版内专家分月排行榜第二 2013年5月 Windows专区大版内专家分月排行榜第二 2012年12月 Windows专区大版内专家分月排行榜第二 2012年3月 Windows专区大版内专家分月排行榜第二 2012年2月 Windows专区大版内专家分月排行榜第二 蓝花 2012年8月 Windows专区大版内专家分月排行榜第三 2011年10月 Windows专区大版内专家分月排行榜第三: 一、unit上定义、实现函数
function CN_rmb(Num:string):WideString;//人民币大写转换

function CN_rmb(Num: string): WideString;
begin
 //人民币大写转换实现
end;

二、datamodule事件onCreate添加函数
procedure TDM.DataModuleCreate(Sender: TObject); //需在UserFunction处定义函数
begin
 frxReport.AddFunction('function CN_rmb(Num:string):WideString;','Myfunction1','人民币中文大写转换'); //Myfunction1为名字也可其它
end;

三、frxReport事件onUserFunction定义函数
function TDM.frxReportUserFunction(const MethodName: string;
 var Params: Variant): Variant;
begin
 if UpperCase(MethodName) = UpperCase('cn_rmb') then
 Result:=CN_rmb(Params[0]);
end;

四、报表中使用：[cn_rmb(<frxDBDataset1."tax_total">)]

0 2013-12-13 15:07:23

只看TA 引用举报 #7 得分 50

金额小写自动转为大写 #show { background-color: lightgray; height: 50px; width: 200px; }

⋅sql server分区间段统计 ⋅Delphi 10.3 在开发android时，等待提示怎么做？ ⋅如何在父窗体中规范的显示子窗体？ 更多帖子 关注私聊空间博客 linlingwei 本版专家分：200: to gxgyj：
function SmallToBig(NN:Real):AnsiString;//人民币大小写转换
你好，按照你的办法，但是在第四步：[SmallToBig(<frxDBDataset1."tax_total">)]
但是运行后，没有任何反映呀。memo显示是空的

0 2013-12-13 17:16:28

只看TA 引用举报 #8 得分 0

FastReport FR 报表自定义函数人民币大小写转换控件版本是:----------FastReport 3.23.12 Enterpise for d2006 (DeXter)设置如下:----------function TJzpzEdit1.MoneyCn(mmje: Double): string;const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; func...

收藏帖子

fastreport中重量小写转换为大写.txt: fastreport中重量小写转换为大写

小写金额转大写金额!: 请问大家有没有小写金额转大写金额转化的C#的程序呀?先谢谢了!

小写金额转大写: 里面有好几种,希望能对大家有用,提示"好"的是已经调试好的东西,如果大家觉得好使回复下,同时也给自己加一分

FastReport 金额大小写转换自定义函数: 在FastReport中编写金额数字转换大写自定义函数 function MoneyToCharacter(Money:real):string; //数字转换为中文大写 var temp:string; resu:string; i,j:integer; len:integer; Num:array[0..9] of string; A:arra...

怎样在FastReport中实现转大写金额?: 我想把一个字段的合计数在FastReport中转换成大写金额,请问应该怎样做,先谢谢了!

fastreport 金额大小写问题: 我从网上看到了这段程序，按照步骤进行了操作，但是结果没有在fastreport中显示出来不知道什么原因？ function TFPKJFrm.MoneyCn(mmje: Double): strin

在FastReport3中怎样才能实现人民币大写？: 在FastReport3中怎样才能实现人民币大写？如何加入自定义函数？？ function TJzpzEdit1.MoneyCn(mmje: Double): string; const s1: s

在fastreport中打印空白表格及小写金额转大写金额: var PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數 C_ToTal, C_JINE : STring; ToTal_Debit, Page_JinE, Total_Credit : Extended; //Debit-借方，credit-贷方

小写金额转大写金额: 参考网上写的小写金额转大写金额示例，攒个积分。

金额大写转小写: JAVA代码示例，金额大写转小写，将大写的金额转换成小写，精确到角。public static void main(String[] args) { MoneyConversion mon = new MoneyConversion(); double a = mon.convertUpperToNum("肆拾万叁仟陆佰零伍元伍角"); double b = mon.convertUpperToNum("叁仟贰佰壹拾捌元伍角"); double c = mon.convertUpperToNum("壹万元整"); double d = mon.convertUpperToNum("肆拾伍元陆角"); System.out.println(a); System.out.println(b); System.out.println(c); System.out.println(d); }

#小写金额转大写金额: 小写金额转大写金额 闲话不多说，直接上代码： function num_to_rmb($num){ $c1 = "零壹贰叁肆伍陆柒捌玖"; $c2 = "分角元拾佰仟万拾佰仟亿"; //精确到分后面就不要了，所以只留两个小数位 $num = round($num, 2); //将数字转化为整数 $num = $num * 100; if...

fastReport 有没有大写金额的函数啊: fastReport 有没有大写金额的函数啊我的值是变的。

在fastreport里转换金额大小写: 在fastreport的pascalscript里面我没有搞明白怎么调用sysutil

fast report中实现大写金额: //memo类型控件，值应该为"[bigsum]"，代码如下begin moneys1:=零壹贰叁肆伍陆柒捌玖; moneys2:=圆拾佰仟万拾佰仟亿; pursum:=int([selllog."购电金额"]); bigsum:=; if pursum>=100000000 then bigsum:=金额太多 else begin

如何在fastreport中显示金额的大写?: 现在需要打印金额的大写,报表用fastreport,请问如何在fastreport中设置

我在fastreport中写了数字转化为大写金额的处理，如果有30个人感兴趣，我将公布源代码: 目前转换到十万位，不过到亿也容易 //hehe 感兴趣在下面签名

js_小写金额转大写金额,大写转小写.js: 通过js代码将小写金额转换成大写金额，将大写金额转换成数字

fastreport小写转大写: 我从网上下载的例子不好用,哪为有现成的例子发给我.dlwgwj@163.com

关于fastreport中小写金额转大写金额的老问题？: 在fastreport中每页的小计转为人民币大写金额，我搜索了以前的贴子，WWWWA(aaaa)是这样告诉的：在fastreport数据字典中加一变量Frjehj，其express为sum([Query1."field"])，然后在D中用另一变量rn if frRprt.Dictionary.Value['Frjehj'] <> null thenrn jehj:=frRprt.Dictionary.Value['Frjehj'];rn dxje_rprt:= TfrMemoView(frRprt.FindObject('Memo_xj'));//dxje_rprt为TfrMemoView变量rn dxje_rprt.Memo.Text := MoneyCn(jehj);//MOneyCn是小写转大写函数rn 但是在打印的时候'Memo_xj'是无，为什么呢？请各位大虾明示？rnrn rn

人民币小写金额转换为大写函数: VC++ 一个把小写金额转换成大写金额的函数。如：￥12345.67元壹万贰仟叁佰肆拾伍元陆角柒分。￥10001.02元壹万零壹元零贰分￥10000.00元壹万元整

人民币金额小写转大写: 从金额小写数字转换到金额大写，包括小数。.NET C＃源代码。

FastReport.net 怎么把　人民币　显示为大写的啊: 问题　“FastReport.net 怎么把　人民币　显示为大写的啊”求助？？？

FastReport应用问题: 页小计栏尾 + Data项里要有数据源绑定。大写人民 private void Cell47_AfterData(object sender, EventArgs e) { TableCell nCell= sender as TableCell; nCell.Text=ToRMB(nCell.Text.ToString()); } public stat...

fastreport 如何根据字数的多少控制字体的大小: 项目中用到fastreport 进行套打，由于字符数量的多少不知道，所以设定了字体的大小有时候不能将内容打权，这时候我们可以根据预先设定的字体，测试字符数量和全部打印出来时设置的字体大小，然后在代码中对字体的大小进行控制。代码块 private void CompareFontSize(TableCell cell) { if(cell.Text.Lengt...

FastReport中如何加入自定义函数: 原文链接 FastReport中如何加入自定义函数 千里之行_12 2017-05-06 22:38:48 浏览100 评论0 函数 ADD 脚本 string 报表 Create delphi fastreport 自定义函数 摘要： Delphi报表插件FastReport中如何加入自定义函数 在fastreport脚本可以写函数，当有许多wind

fastreport常用函数: 1. 单据中有多行数据，但预览时只显示部分内容，或者打印内容行与行之间有间隔 FASTREPOR属性中：设置RowCount=0，Start New Page为False；Stretched为True. 说明： RowCount：控制总共打印几行；RowCount=0是打印全部； Start New Page:打印前先跳页；每页打印一行； Stretch:表

Java编程-金额小写转大写: NULL 博文链接：https://ziyan-999.iteye.com/blog/751329

人民币小写金额转大写: 在SQL Server中如何用函数把人民币小写金额转大写。

DELPHI金额小写转大写: DELPHI金额小写转大写 附带调用程序！

pb金额小写转大写: pb9 金额小写转大写 string CN_NUM[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}//大写0-9 string CN_CARRY[19] = {"分","角","","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万","拾","佰","仟"}

金额小写转换为大写: :idea: [code="js"] /* 小写金额转换成大写（人民币元）入参（P1）：dValue 金额数值或数值字符串 a, 也支持千分位格式（#,##0.00）输入； b, 支持负数，将前导“-”号转为“负”字，将前导的“+”号忽略或转为“正”字； c1, 值域之整数部分上限（超限则返回错误）： 44位/千正；43位/百正；42位...

C# 金额大写转小写: using System; namespace OCRTest { /// &lt;summary&gt; /// C#金额大写转小写 /// &lt;/summary&gt; public static class RMBChineseConvertToNumber { /// &lt;summary&gt; /// 将...

人民币金额大写转小写: 将大写的金额转换成小写 对：“壹佰零壹亿叁仟零叁拾万零陆佰零陆元玖角玖分” 按”亿”,”万”,”元”进行切分得到 [‘壹佰零壹’, ‘叁仟零叁拾’, ‘零陆佰零陆’, ‘玖角玖分’] 对list中每一个串进行转换然后乘以它的进制最后累加 import re money_dict={ "壹":1, "贰":2,"叁":3, "肆":4, "伍":5,"陆":6,&qu

金额小写转大写的问题: 如何才能将小写金额（int）转为大写字符。

金额小写转大写.cpp: 金额小写转大写,练手写的，还可以，个人感觉……

金额小写转大写工具: 金额小写转大写工具，正数负数都可以转换。

C#金额小写转大写: 基于Microsoft Visual Studio 2010，Framework 4.0版本开发的小写转换大写，支持任意小数位和指定小数位的字符转换成中文大写

资金金额：小写转大写: 在涉及到资金金额时，常常会要求输入阿拉伯数字，并给出汉语大写的提示。方法如下： public static double Yi = Math.Pow(10, 8); // 一亿 public static string StrYi = "亿"; public static double QianWan = Math.Pow(10, 7);

人民币小写金额转换为大写金额: 人民币金额转换工具，在设计报表时，经常会将小写金额数据转换为大写金额数据输出。本工具就是用于将小写金额转换为大写金额

易语言小写金额转大写金额

小写金额转换为大写金额: 小写金额转换为大写金额示例

JAVA大写金额转化为小写金额: 用JAVA书写的一个大写金额转化为小写金额的类

小写金额转大写金额工具: 小写金额转大写金额工具,方便于财务人员将小写转换成大写的金额.

大写金额转小写金额SQL代码: 大写金额转小写金额函数，已在生产环境使用。使用实例：select ChineseMoneyExchange('壹佰元整') from dual 结果：10000

金额小写转换大写的函数: a=1234rnrnb=一千二百三十四rnrnrn转换的函数这么写? 请教了

人民币小写金额转大写金额: 人民币小写金额转大写金额,不是简单的数字转换,而是在数字依次转换成大写文字后,再继续进行整理,将转换结果整理成符合大写金额书写要求的结果.

小写金额转大写金额(C++): 可以将输入的小写金额转换为大写金额。比如：输入： 123,456,789 输出结果：壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元

ORACLE小写金额转大写金额: 转自：http://www.2cto.com/database/201307/226045.html ORACLE小写金额转大写金额 ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ...

小写金额转换大写金额函数: create or replace function sf_get_money(p_num in number default null) 此函数处理数字小写金额转换为大写金额

求小写金额转换成大写金额的函数: 不限一个，谁的method的写得最好，那么我给他的分就最多。rn如果答案较多，本人还可以再另外开新帖给分。rn

谁有把小写金额转换为大写金额的函数?: 能否给俺,俺在这儿先谢了.

寻:用javascript实现的小写金额转大写金额的函数: 如:200元->贰佰零拾零元零角零分rn 12345.45->壹万贰仟叁佰肆拾伍元肆角伍分

oracle中将小写金额转换为大写金额函数: oracle中将小写金额转换为大写金额函数 oracle中将小写金额转换为大写金额函数

收集人民币小写金额转换为大写金额的函数: 搜索了一下，找到一些，可都不太满意，有BUG。rnrn寻求可靠的转换函数，谢谢！

小写金额转换成大写金额: 这是一个小写金额转换成大写金额的演示程序，程序转换结果非常正确，尤其是在对零的判断上，效果非常满意，不会出现类似零元零角零分的现象。此模块已经应用在某基金会的储蓄管理上已有两年多时间，从未出现过转换错误，非常适合应用在报表或发票中需要显示或打印大写金额的地方。

小写金额转换大写金额: 小写金额转换大写金额,小写金额转换大写金额.

金额小写转换成大写: /** * 金额小写转换成大写 * @param num * @return * @throws Exception */ public static String digitUppercase(String num) throws Exception { String fraction[] = { "角", "分" }; ...

小写数字转换大写金额: 小写数字转换大写金额，onkeyup事件触发js脚本

小写金额转为大写: 各位，在VF中怎么把小写金额转为大写啊，急用，谢谢拉！rn这是之前的方法，但是不正确。rnse2=""rnse2=alltrim(str(se1,10,2))rnselen=len(se2)rnrnds1=space(2)rnds2=space(2)rnds3=space(2)rnds4=space(2)rnds5=space(2)rnds6=space(2)rnds7=space(2)rnds=""rnif selen=8rnds1=dx(subs(se2,1,1))rnds2=dx(subs(se2,2,1))rnds3=dx(subs(se2,3,1))rnds4=dx(subs(se2,4,1))rnds5=dx(subs(se2,5,1))rnds6=dx(subs(se2,7,1))rnds7=dx(subs(se2,8,1))rnrnds="￥"+ds1+"万"+ds2+"仟"+ds3+"佰"+ds4+"拾"+ds5+"元"+ds6+"角"+ds7+"分"rnrnendifrnif selen=7rnrnds2=dx(subs(se2,1,1))rnds3=dx(subs(se2,2,1))rnds4=dx(subs(se2,3,1))rnds5=dx(subs(se2,4,1))rnds6=dx(subs(se2,6,1))rnds7=dx(subs(se2,7,1))rnds="￥"+ds2+"仟"+ds3+"佰"+ds4+"拾"+ds5+"元"+ds6+"角"+ds7+"分"rnendifrnrnif selen=6rnds3=dx(subs(se2,1,1))rnds4=dx(subs(se2,2,1))rnds5=dx(subs(se2,3,1))rnds6=dx(subs(se2,5,1))rnds7=dx(subs(se2,6,1))rnds="￥"+ds3+"佰"+ds4+"拾"+ds5+"元"+ds6+"角"+ds7+"分"rnendifrnif selen=5rnds4=dx(subs(se2,1,1))rnds5=dx(subs(se2,2,1))rnds6=dx(subs(se2,4,1))rnds7=dx(subs(se2,5,1))rnds="￥"+ds4+"拾"+ds5+"元"+ds6+"角"+ds7+"分"rnendifrnrnif selen=4.and.val(subs(se2,1,1))>0rnds5=dx(subs(se2,1,1))rnds6=dx(subs(se2,3,1))rnds7=dx(subs(se2,4,1))rnds="￥"+ds5+"元"+ds6+"角"+ds7+"分"rnendifrnif selen=4.and.subs(se2,1,1)="0".and.val(subs(se2,3,1))>0rnrnds6=dx(subs(se2,3,1))rnds7=dx(subs(se2,4,1))rnds="￥"+ds6+"角"+ds7+"分"rnendifrnrnif selen=4.and.subs(se2,1,1)="0".and.val(subs(se2,3,1))=0.and.val(subs(se2,4,1))>0rnds7=dx(subs(se2,4,1))rnds="￥"+ds7+"分"rnendifrn**************rnrnfunction dxrnparameter se3rnif se3="1"rnse11="壹"rnendifrnif se3="2"rnse11="贰"rnendifrnif se3="3"rnse11="叁"rnendifrnif se3="4"rnse11="肆"rnendifrnif se3="5"rnse11="伍"rnendifrnif se3="6"rnse11="陆"rnendifrnif se3="7"rnse11="柒"rnendifrnif se3="8"rnse11="捌"rnendifrnif se3="9"rnse11="玖"rnendifrnif se3="0"rnse11="零"rnendifrnreturn se11

java字符串大写转小写，小写转大写: JAVA中String类提供了转大写的方法toUpperCase()和转小写的方法toLowerCase() 使用如下： String a = "ABC"; system.out.println(a.toLowerCase());//abc String b = "abc"; system.out.println(b.toUpperCase());//ABC

小写金额转换成大写: 小写金额转换成大写，如943.35转换后玖佰肆十叁圆叁角伍分

大写数字转成小写价格，大写金额转成小写金额: 大写数字转成小写价格，大些金额转小写金额，在网上找了好久没找到只能自己写个，新手写可能不好，希望可以帮助需求的朋友

easyui-numberbox获取焦点时转小写金额失去焦点转大写金额: [code=javascript]rn$('#id').numberbox(rn formatter: function(value)rn if (isNaN(value) || value > Math.pow(10, 12)||value=="")rn return ""rn elsern return numToChinese(value.toString());rn rn )rn[/code]rn numToChinese()可以将数字转大写金额 但是当第二次点击时不能变成数值，并且失去焦点时会清空数据，求解决！！！

VSTO Word Add-in 小写转大写金额: word中将输入的小写金额快速转换为大写金额,方法A:1、输入所需要的阿拉伯数字，并选中；2、单击插入----编号按钮；3、弹出编号对话框，在编号类型列表中，选择"壹，贰，叁……"选项即可；4、单击"确定"按钮，即可实现将阿拉伯数字转化为大写金额形式。(但似乎并不是偶需要的格式内容,比如萬,圆,并被限制在1~999999)方法B:使用该源码插件,可自行修改.

如何将小写金额转换为大写？: 在做报表的时候，统计出一个账单的付费金额（小写），格式为￥,0.00;-￥,0.00（如：￥10,406.05),我写的代码如下：rnfunction TForm1.GetPositionName(value: integer): string;rnbeginrn case value ofrn -2: result:='分';rn -1: result:='角';rn //0: result:='圆';rn 0: result:='';rn 1: result:='拾';rn 2: result:='佰';rn 3: result:='仟';rn 4: result:='万';rn 5: result:='十';rn 6: result:='百';rn 7: result:='千';rn 8: result:='亿';rn 9: result:='拾';rn end;rnend;rnrnfunction TForm1.GetBigValue(value: char): string;rnbeginrn case value ofrn '0': result:='零';rn '1': result:='壹';rn '2': result:='贰';rn '3': result:='叁';rn '4': result:='肆';rn '5': result:='伍';rn '6': result:='陆';rn '7': result:='柒';rn '8': result:='捌';rn '9': result:='玖';rn end;rnend;rnrnfunction TForm1.LowertoUpper(LowerStr : Extended) : string;rnvarrn Money: string;rn i : integer;rn position : integer;rn HasLower : Boolean;rn addZero : integer;rn strMoney : string;rnbeginrn Money := FormatFloat('0.00',LowerStr);rn position := -2;rn strmoney := '';rn addZero := 0;rn HasLower := False;rn for i:=Length(Money) downto 1 dorn beginrn case position ofrn 4,8:beginrn if HasLower and (AddZero>0) thenrn beginrn strMoney := GetBigValue('0') + strMoney;rn HasLower := False;rn AddZero := 0;rn end;rn end;rn end;rn if Money[i]<>'0' thenrn beginrn if Money[i]<>'.' thenrn beginrn if (addZero>0) and HasLower thenrn beginrn strMoney := GetBigValue('0') + strMoney;rn addZero := 0;rn end;rn case position ofrn -2,-1,4,8: HasLower := False;rn elsern HasLower := True;rn end;rn strMoney := GetBigValue(Money[i]) + GetPositionName(position) + strMoney;rn endrn else beginrn position := position - 1;rn strMoney := '圆'+strMoney;rn end;rn endrn else if position >0 thenrn beginrn addZero := addZero + 1;rn case position ofrn 0,4,8: beginrn strMoney := GetPositionName(position) + strMoney;rn end;rn end;rn end;rn position := position + 1;rn end;rn Result := strMoney;rnend;rn 可是运行后某些特殊的数据不能正常现实，小弟请教各位大哥给出正确的算法，不胜感激！rn

【原创】人民币小写金额转大写: [code=SQL]-- ====================================================================rn-- Title: 人民币小写金额转大写rn-- Author: dobear Mail(MSN): dobear_0922@hotmail.comrn-- Environment: Vista + SQL2005rn-- Date: 2008-06-12rn-- Remark: dobear原创，转载请注明出处，有问题请发Mail告之rn-- ====================================================================rnIF OBJECT_ID('fn_GetFormatMoney', N'FN') IS NOT NULLrn DROP FUNCTION fn_GetFormatMoney rnrnGOrnCREATE FUNCTION dbo.fn_GetFormatMoney (@money numeric(14,2))rnRETURNS NVARCHAR(32) ASrnBEGINrn DECLARE @money_num NVARCHAR(20) --存储金额的字符形式rn , @money_chn NVARCHAR(32) --存储金额的中文大写形式rn , @n_chn NVARCHAR(1), @i INT --临时变量rnrn SELECT @money_chn=CASE WHEN @money>=0 THEN '' ELSE '(负)' ENDrn , @money=ABS(@money)rn , @money_num=STUFF(STR(@money, 15, 2), 13, 1, '') --加前置空格补齐到14位（去掉小数点）rn , @i=PATINDEX('%[1-9]%', @money_num) --找到金额最高位rnrn WHILE @i>=1 and @i<>'0' or (SUBSTRING(@money_num,@i+1,1)<>'0' and @i not in(4, 8, 12, 14)) --转换阿拉伯数字为中文大写形式 rn SET @money_chn=@money_chn+SUBSTRING('零壹贰叁肆伍陆柒捌玖', @n_chn+1, 1)rn IF @n_chn<>'0' or @i in(4, 8, 12) --添加中文单位rn SET @money_chn=@money_chn+SUBSTRING('仟佰拾亿仟佰拾万仟佰拾圆角分',@i,1) rn rn SET @i=@i+1rn ENDrnrn SET @money_chn=REPLACE(@money_chn, '亿万', '亿') --当金额为X亿零万时去掉万rn IF @money=0 SET @money_chn='零圆整' --当金额为零时返回'零圆整'rn IF @n_chn='0' SET @money_chn=@money_chn+'整' --当金额末尾为零分时以'整'结尾rnrn RETURN @money_chn --返回大写金额rnrnENDrnGO[/code]rn功能测试：rn[code=SQL]GOrnCREATE TABLE tb_money(id INT IDENTITY(1,1) PRIMARY KEY, m NUMERIC(14,2))rnrnINSERT tb_money SELECT 0rnUNION ALL SELECT 0.01rnUNION ALL SELECT 0.2rnUNION ALL SELECT 0.35rnUNION ALL SELECT 230rnUNION ALL SELECT 10000.2rnUNION ALL SELECT 10020.3rnUNION ALL SELECT 10300.45rnUNION ALL SELECT -10304.07rnUNION ALL SELECT 30210020rnUNION ALL SELECT -3020000rnUNION ALL SELECT 3020400rnUNION ALL SELECT 302040000000rnUNION ALL SELECT 302004000000.1rnrnselect m as '小写金额', dbo.fn_GetFormatMoney(m) as '大写金额' from tb_moneyrn/*rn小写金额 大写金额rn--------------------------------------- --------------------------------rn0.00 零圆整rn0.01 壹分rn0.20 贰角整rn0.35 叁角伍分rn230.00 贰佰叁拾圆整rn10000.20 壹万圆贰角整rn10020.30 壹万零贰拾圆叁角整rn10300.45 壹万零叁佰圆肆角伍分rn-10304.07 (负)壹万零叁佰零肆圆零柒分rn30210020.00 叁仟零贰拾壹万零贰拾圆整rn-3020000.00 (负)叁佰零贰万圆整rn3020400.00 叁佰零贰万零肆佰圆整rn302040000000.00 叁仟零贰拾亿肆仟万圆整rn302004000000.10 叁仟零贰拾亿零肆佰万圆壹角整rnrn(14 row(s) affected)rn*/rnrnDROP TABLE tb_money[/code]

Oracle 小写金额转换为大写: 在开发EBS的合同报表打印的时候需要将小写金额转换为大写。如下是本人自己写的转换函数。主要思路：先获取小数点位置，在区分整数与小数点处理，根据位数和数字组合读取金额。最后再处理特殊显示部分。 /******************************************************************* * FUNCTION get

求一个金额小写转大写的代码: 求一个金额小写转大写的代码.我自己尝试写了下,虽然能实现,但感觉太繁琐了,就不发出来丢人现眼了.各位高手提供个下自己的方法哈 ,谢谢.

java金额小写转大写（8.2）: java金额小写转大写（8.2）

java处理金额小写转大写: 转自：http://blog.csdn.net/delongcpp/article/details/39081633。 package test; import java.util.HashMap; import java.util.Map; import java.util.ArrayList; import org.apache.commons.lang.StringUtils; p

求教!金额小写转换为大写: 求教!金额小写转换为大写!急用!rn

金额小写转大写完整js: 金额小写转大写完整版本js，可直接调用

ITIL v3 foundation bridge下载: ITIL V3 Foundation Brigde 相关下载链接：[url=//download.csdn.net/download/raejack/2016729?utm_source=bbsseo]//download.csdn.net/download/raejack/2016729?utm_source=bbsseo[/url]

ROS3.30 应用篇-教案下载: ROS中的智能QOS实现，效果应该是会比WAYOS好，而且更灵活 WAYOS的智能流控各位大虾的分析，应该是这样的： 1、ICMP（PING）、DNS这两个包是放在最优先的级别，这样可以保证用户可以获取较好的PING值，而且可以得到快速的DNS响应 2、将一些在线游戏的端口，全放在第二优先队列，保证游戏不卡，这个是也是非常重要的 3、HTTP服务，小的HTTP包数据包将放在第三优先队列，保证网页的快速打开 4、一些未标注的小包，这个的优先级别仅次于HTTP 5、P2P等这个就是WAYOS的智能QOS流控，想起来也没有什么高级的，其实大家可以利用ROS中实现，事实证明了ROS中有相关下载链接：[url=//download.csdn.net/download/vvshow444555/5760765?utm_source=bbsseo]//download.csdn.net/download/vvshow444555/5760765?utm_source=bbsseo[/url]

java分页标签下载: 分页标签只需引入jar即可使用，包含源码相关下载链接：[url=//download.csdn.net/download/u010342008/7698971?utm_source=bbsseo]//download.csdn.net/download/u010342008/7698971?utm_source=bbsseo[/url]

相关热词 c++和c#哪个就业率高 c# 批量动态创建控件 c# 模块和程序集的区别 c# gmap 截图 c# 验证码图片生成类 c# 再次尝试连接失败 c#开发编写规范 c# 压缩图片好麻烦 c#计算数组中的平均值 c#获取路由参数

我们是很有底线的