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

Bbs2
本版专家分:200
结帖率 100%
Bbs5
本版专家分:3052
Bbs2
本版专家分:200
Bbs5
本版专家分:3772
Bbs2
本版专家分:200
Bbs5
本版专家分:3772
Bbs2
本版专家分:200
Bbs7
本版专家分:13230
Blank
红花 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专区大版内专家分月排行榜第一
Blank
黄花 2013年9月 Windows专区大版内专家分月排行榜第二
2013年8月 Windows专区大版内专家分月排行榜第二
2013年5月 Windows专区大版内专家分月排行榜第二
2012年12月 Windows专区大版内专家分月排行榜第二
2012年3月 Windows专区大版内专家分月排行榜第二
2012年2月 Windows专区大版内专家分月排行榜第二
Blank
蓝花 2012年8月 Windows专区大版内专家分月排行榜第三
2011年10月 Windows专区大版内专家分月排行榜第三
Bbs2
本版专家分:200
fastreport中重量小写转换为大写.txt
<em>fastreport</em>中重量<em>小写</em>转换为<em>大写</em>
小写金额大写金额!
请问大家有没有<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em>转化的C#的程序呀?先谢谢了!
小写金额大写
里面有好几种,希望能对大家有用,提示"好"的是已经调试好的东西,如果大家觉得好使回复下,同时也给自己加一分
FastReport 金额小写转换自定义函数
在FastReport中编写<em>金额</em>数字转换<em>大写</em>自定义<em>函数</em> function MoneyToCharacter(Money:real):string; //数字转换为中文<em>大写</em> var temp:string; resu:string; i,j:integer; len:integer; Num:array[0..9] of string; A:arra...
怎样在FastReport中实现转大写金额?
我想把一个字段的合计数在FastReport中转换成<em>大写</em><em>金额</em>,请问应该怎样做,先谢谢了!
fastreport 金额小写问题
我从网上看到了这段程序,按照步骤进行了操作,但是结果没有在<em>fastreport</em>中显示出来 不知道什么原因? function TFPKJFrm.MoneyCn(mmje: Double): strin
在FastReport3中怎样才能实现人民币大写
在FastReport3中怎样才能实现人民币<em>大写</em>? 如何加入自定义<em>函数</em>?? 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-贷方           
小写金额大写金额
参考网上写的<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em>示例,攒个积分。
金额大写小写
JAVA代码示例,<em>金额</em><em>大写</em>转<em>小写</em>,将<em>大写</em>的<em>金额</em>转换成<em>小写</em>,精确到角。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); }
#小写金额大写金额
<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em> 闲话不多说,直接上代码: function num_to_rmb($num){ $c1 = &quot;零壹贰叁肆伍陆柒捌玖&quot;; $c2 = &quot;分角元拾佰仟万拾佰仟亿&quot;; //精确到分后面就不要了,所以只留两个小数位 $num = round($num, 2); //将数字转化为整数 $num = $num * 100; if...
fastReport 有没有大写金额函数
fastReport 有没有<em>大写</em><em>金额</em>的<em>函数</em>啊 我的值是变的。
fastreport里转换金额小写
在<em>fastreport</em>的pascalscript里面我没有搞明白<em>怎么</em><em>调用</em>sysutil
fast report中实现大写金额
  //memo类型控件,值应该为"[bigsum]",代码如下begin moneys1:=零壹贰叁肆伍陆柒捌玖; moneys2:=圆拾佰仟万拾佰仟亿; pursum:=int([selllog."购电<em>金额</em>"]); bigsum:=; if pursum>=100000000 then    bigsum:=<em>金额</em>太多 else begin
如何在fastreport中显示金额大写?
现在需要打印<em>金额</em>的<em>大写</em>,报表用<em>fastreport</em>,请问如何在<em>fastreport</em>中设置
我在fastreport中写了数字转化为大写金额的处理,如果有30个人感兴趣,我将公布源代码
目前转换到十万位,不过到亿也容易 //hehe 感兴趣在下面签名
js_小写金额大写金额,大写小写.js
通过js代码将<em>小写</em><em>金额</em>转换成<em>大写</em><em>金额</em>,将<em>大写</em><em>金额</em>转换成数字
fastreport小写大写
我从网上下载的例子不好用,哪为有现成的例子发给我.dlwgwj@163.com
关于fastreport小写金额大写金额的老问题?
在<em>fastreport</em>中每页的小计转为人民币<em>大写</em><em>金额</em>,我搜索了以前的贴子,WWWWA(aaaa)是这样告诉的:在<em>fastreport</em>数据字典中加一变量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是<em>小写</em>转<em>大写</em><em>函数</em>rn 但是在打印的时候'Memo_xj'是无,为什么呢?请各位大虾明示?rnrn rn
人民币小写金额转换为大写函数
VC++ 一个把<em>小写</em><em>金额</em>转换成<em>大写</em><em>金额</em>的<em>函数</em>。 如:¥12345.67元 壹万贰仟叁佰肆拾伍元陆角柒分。 ¥10001.02元 壹万零壹元零贰分 ¥10000.00元 壹万元整
人民币金额小写大写
从<em>金额</em><em>小写</em>数字转换到<em>金额</em><em>大写</em>,包括小数。.NET C#源代码。
FastReport.net 怎么把 人民币 显示为大写的啊
问题 “FastReport.net <em>怎么</em>把 人民币 显示为<em>大写</em>的啊”求助???
FastReport应用问题
页小计栏尾 +  Data项里要有 数据源绑定。<em>大写</em>人民 private void Cell47_AfterData(object sender, EventArgs e)    {      TableCell nCell= sender as TableCell;      nCell.Text=ToRMB(nCell.Text.ToString());    }    public stat...
fastreport 如何根据字数的多少控制字体的大小
项目中用到<em>fastreport</em> 进行套打,由于字符数量的多少不知道,所以设定了字体的大小有时候不能将内容打权, 这时候我们可以根据预先设定的字体,测试 字符数量和全部打印出来时设置的字体大小,然后在代码中对字体 的大小进行控制。 代码块 private void CompareFontSize(TableCell cell) { if(cell.Text.Lengt...
FastReport中如何加入自定义函数
原文链接 FastReport中如何加入自定义<em>函数</em> 千里之行_12 2017-05-06 22:38:48 浏览100 评论0 <em>函数</em> ADD 脚本 string 报表 Create delphi <em>fastreport</em> 自定义<em>函数</em> 摘要: Delphi报表插件FastReport中如何加入自定义<em>函数</em> 在<em>fastreport</em>脚本可以写<em>函数</em>,当有许多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中如何用<em>函数</em>把人民币<em>小写</em><em>金额</em>转<em>大写</em>。
DELPHI金额小写大写
DELPHI<em>金额</em><em>小写</em>转<em>大写</em> 附带<em>调用</em>程序!
pb金额小写大写
pb9 <em>金额</em><em>小写</em>转<em>大写</em> string CN_NUM[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}//<em>大写</em>0-9 string CN_CARRY[19] = {"分","角","","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万","拾","佰","仟"}
金额小写转换为大写
:idea: [code=&quot;js&quot;] /* <em>小写</em><em>金额</em>转换成<em>大写</em>(人民币元) 入参(P1):dValue <em>金额</em>数值或数值字符串 a, 也支持千分位格式(#,##0.00)输入; b, 支持负数,将前导“-”号转为“负”字,将前导的“+”号忽略或转为“正”字; c1, 值域之整数部分上限(超限则返回错误): 44位/千正;43位/百正;42位...
C# 金额大写小写
using System; namespace OCRTest {     /// &amp;lt;summary&amp;gt;     /// C#<em>金额</em><em>大写</em>转<em>小写</em>     /// &amp;lt;/summary&amp;gt;     public static class RMBChineseConvertToNumber     {         /// &amp;lt;summary&amp;gt;         /// 将...
人民币金额大写小写
将<em>大写</em>的<em>金额</em>转换成<em>小写</em> 对:“壹佰零壹亿叁仟零叁拾万零陆佰零陆元玖角玖分” 按”亿”,”万”,”元”进行切分 得到 [‘壹佰零壹’, ‘叁仟零叁拾’, ‘零陆佰零陆’, ‘玖角玖分’] 对list中每一个串进行转换然后乘以它的进制 最后累加 import re money_dict={ &quot;壹&quot;:1, &quot;贰&quot;:2,&quot;叁&quot;:3, &quot;肆&quot;:4, &quot;伍&quot;:5,&quot;陆&quot;:6,&qu
金额小写大写的问题
如何才能将<em>小写</em><em>金额</em>(int)转为<em>大写</em>字符。
金额小写大写.cpp
<em>金额</em><em>小写</em>转<em>大写</em>,练手写的,还可以,个人感觉……
金额小写大写工具
<em>金额</em><em>小写</em>转<em>大写</em>工具,正数负数都可以转换。
C#金额小写大写
基于Microsoft Visual Studio 2010,Framework 4.0版本开发的<em>小写</em>转换<em>大写</em>,支持任意小数位和指定小数位的字符转换成中文<em>大写</em>
资金金额小写大写
在涉及到资金<em>金额</em>时,常常会要求输入阿拉伯数字,并给出汉语<em>大写</em>的提示。 方法如下:   public static double Yi = Math.Pow(10, 8); // 一亿 public static string StrYi = "亿"; public static double QianWan = Math.Pow(10, 7);
人民币小写金额转换为大写金额
人民币<em>金额</em>转换工具,在设计报表时,经常会将<em>小写</em><em>金额</em>数据转换为<em>大写</em><em>金额</em>数据输出。本工具就是用于将<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em>
易语言 小写金额大写金额
小写金额转换为大写金额
<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em>示例
JAVA大写金额转化为小写金额
用JAVA书写的一个<em>大写</em><em>金额</em>转化为<em>小写</em><em>金额</em>的类
小写金额大写金额工具
<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em>工具,方便于财务人员将<em>小写</em>转换成<em>大写</em>的<em>金额</em>.
大写金额小写金额SQL代码
<em>大写</em><em>金额</em>转<em>小写</em><em>金额</em><em>函数</em>,已在生产环境使用。 使用实例:select ChineseMoneyExchange('壹佰元整') from dual 结果:10000
金额小写转换大写函数
a=1234rnrnb=一千二百三十四rnrnrn转换的<em>函数</em>这么写? 请教了
人民币小写金额大写金额
人民币<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em>,不是简单的数字转换,而是在数字依次转换成<em>大写</em>文字后,再继续进行整理,将转换结果整理成符合<em>大写</em><em>金额</em>书写要求的结果.
小写金额大写金额(C++)
可以将输入的<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em>。 比如: 输入: 123,456,789 输出结果: 壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元
ORACLE小写金额大写金额
转自:http://www.2cto.com/database/201307/226045.html ORACLE<em>小写</em><em>金额</em>转<em>大写</em><em>金额</em>   ? 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) 此<em>函数</em>处理数字<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em> 
小写金额转换成大写金额函数
不限一个,谁的method的写得最好,那么我给他的分就最多。rn如果答案较多,本人还可以再另外开新帖给分。rn
谁有把小写金额转换为大写金额函数?
能否给俺,俺在这儿先谢了.
寻:用javascript实现的小写金额大写金额函数
如:200元->贰佰零拾零元零角零分rn 12345.45->壹万贰仟叁佰肆拾伍元肆角伍分
oracle中将小写金额转换为大写金额函数
oracle中将<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em><em>函数</em> oracle中将<em>小写</em><em>金额</em>转换为<em>大写</em><em>金额</em><em>函数</em>
收集人民币小写金额转换为大写金额函数
搜索了一下,找到一些,可都不太满意,有BUG。rnrn寻求可靠的转换<em>函数</em>,谢谢!
小写金额转换成大写金额
这是一个<em>小写</em><em>金额</em>转换成<em>大写</em><em>金额</em>的演示程序,程序转换结果非常正确,尤其是在对零的判断上,效果非常满意,不会出现类似零元零角零分的现象。此模块已经应用在某基金会的储蓄管理上已有两年多时间,从未出现过转换错误,非常适合应用在报表或发票中需要显示或打印<em>大写</em><em>金额</em>的地方。
小写金额转换大写金额
<em>小写</em><em>金额</em>转换<em>大写</em><em>金额</em>,<em>小写</em><em>金额</em>转换<em>大写</em><em>金额</em>.
金额小写转换成大写
/**      * <em>金额</em><em>小写</em>转换成<em>大写</em>      * @param num      * @return      * @throws Exception      */     public static String digitUppercase(String num) throws Exception {         String fraction[] = { &quot;角&quot;, &quot;分&quot; }; ...
小写数字转换大写金额
<em>小写</em>数字转换<em>大写</em><em>金额</em>,onkeyup事件触发js脚本
小写金额转为大写
各位,在VF中<em>怎么</em>把<em>小写</em><em>金额</em>转为<em>大写</em>啊,急用,谢谢拉!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类提供了转<em>大写</em>的方法toUpperCase()和转<em>小写</em>的方法toLowerCase() 使用如下: String a = "ABC"; system.out.println(a.toLowerCase());//abc String b = "abc"; system.out.println(b.toUpperCase());//ABC
小写金额转换成大写
<em>小写</em><em>金额</em>转换成<em>大写</em>,如943.35转换后 玖佰肆十叁圆叁角伍分
大写数字转成小写价格,大写金额转成小写金额
<em>大写</em>数字转成<em>小写</em>价格,大些<em>金额</em>转<em>小写</em><em>金额</em>,在网上找了好久没找到只能自己写个,新手写可能不好,希望可以帮助需求的朋友
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()可以将数字转<em>大写</em><em>金额</em> 但是当第二次点击时不能变成数值,并且失去焦点时会清空数据,求解决!!!
VSTO Word Add-in 小写大写金额
word中将输入的<em>小写</em><em>金额</em>快速转换为<em>大写</em><em>金额</em>,方法A:1、输入所需要的阿拉伯数字,并选中;2、单击插入----编号按钮;3、弹出编号对话框,在编号类型列表中,选择"壹,贰,叁……"选项即可;4、单击"确定"按钮,即可实现将阿拉伯数字转化为<em>大写</em><em>金额</em>形式。(但似乎并不是偶需要的格式内容,比如萬,圆,并被限制在1~999999)方法B:使用该源码插件,可自行修改.
如何将小写金额转换为大写
在做报表的时候,统计出一个账单的付费<em>金额</em>(<em>小写</em>),格式为¥,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: 人民币<em>小写</em><em>金额</em>转<em>大写</em>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) --存储<em>金额</em>的字符形式rn , @money_chn NVARCHAR(32) --存储<em>金额</em>的中文<em>大写</em>形式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) --找到<em>金额</em>最高位rnrn WHILE @i>=1 and @i<>'0' or (SUBSTRING(@money_num,@i+1,1)<>'0' and @i not in(4, 8, 12, 14)) --转换阿拉伯数字为中文<em>大写</em>形式 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, '亿万', '亿') --当<em>金额</em>为X亿零万时去掉万rn IF @money=0 SET @money_chn='零圆整' --当<em>金额</em>为零时返回'零圆整'rn IF @n_chn='0' SET @money_chn=@money_chn+'整' --当<em>金额</em>末尾为零分时以'整'结尾rnrn RETURN @money_chn --返回<em>大写</em><em>金额</em>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 '<em>小写</em><em>金额</em>', dbo.fn_GetFormatMoney(m) as '<em>大写</em><em>金额</em>' from tb_moneyrn/*rn<em>小写</em><em>金额</em> <em>大写</em><em>金额</em>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的合同报表打印的时候需要将<em>小写</em><em>金额</em>转换为<em>大写</em>。     如下是本人自己写的转换<em>函数</em>。 主要思路:先获取小数点位置,在区分整数与小数点处理,根据位数和数字组合读取<em>金额</em>。     最后再处理特殊显示部分。   /*******************************************************************   *  FUNCTION get
求一个金额小写大写的代码
求一个<em>金额</em><em>小写</em>转<em>大写</em>的代码.我自己尝试写了下,虽然能实现,但感觉太繁琐了,就不发出来丢人现眼了.各位高手提供个下自己的方法哈 ,谢谢.
java金额小写大写(8.2)
java<em>金额</em><em>小写</em>转<em>大写</em>(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
求教!金额小写转换为大写
求教!<em>金额</em><em>小写</em>转换为<em>大写</em>!急用!rn
金额小写大写完整js
<em>金额</em><em>小写</em>转<em>大写</em>完整版本js,可直接<em>调用</em>
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#获取路由参数
我们是很有底线的