开发工具:
文件大小: 4kb
下载次数: 0
上传时间: 2006-02-23
详细说明： //以下函数能将小于十万亿元的小写金额转换为大写//作者 方小庆（inrm@263.net）Function NtoC(n0 :real) :String; Function IIF(b :boolean; s1,s2:string):string; begin {本函数在VFP和VB均为系统内部函数} if b then IIF:=s1 else IIF:=s2; end; Const c = ‘零壹贰叁肆伍陆柒捌玖◇分角圆拾佰仟万拾佰仟亿拾佰仟万‘; var L,i,n, code :integer; Z :boolean; s, st,st1 :string;begin s :=FormatFloat(‘0.00‘,n0); L :=Length(s); Z :=n0<1; For i:= 1 To L-3 do begin Val(Copy(s, L-i-2, 1), n, code); st:=IIf( (n=0) And (Z Or (i=9) Or (i=5) Or (i=1)), ‘‘, Copy(c, n*2+1, 2)) + IIf((n=0) And ((i<>9) And (i<>5) And (i <>1) Or Z And (i=1)), ‘‘, Copy(c, (i+13)*2-1, 2)) + st; Z := (n=0); end; Z := False; For i:= 1 To 2 do begin Val(Copy(s, L-i+1, 1), n, code); st1:=IIf((n=0) And ((i=1) Or (i=2) And (Z Or (n0<1))), ‘‘, Copy(c, n*2+1, 2)) + IIf((n>0), Copy(c,(i+11)*2-1, 2), IIf((i=2) Or Z, ‘‘, ‘整‘)) + st1; Z := (n=0); end; For i :=1 To Length(st) do If Copy(st, i, 4) = ‘亿万‘ Then Delete(st,i+2,2); NtoC := IIf(n0 = 0, ‘零‘, st+st1);End; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
