文档章节

delphi 数字金额转换为汉字

雨田ZER0
 雨田ZER0
发布于 2015/09/02 09:51
字数 194
阅读 271
收藏 0
//金额转化为大写
function Changdx2(mmje: Double): String;
const s1: String = '零壹贰叁肆伍陆柒捌玖';
      s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万';
 function StrTran(const S, S1, S2: String): String;
  begin
    Result := StringReplace(S, S1, S2, [rfReplaceAll]);
  end;
 var s, dx: String;
     i, Len: Integer;
begin
if mmje < 0 then
  begin dx := '负';
        mmje := -mmje;
  end;
   s := Format('%.0f', [mmje*100]);
   Len := Length(s);
  for i := 1 to Len do
   dx := dx + Copy(s1, (Ord(s[i]) - Ord('0'))*2 + 1, 2) + Copy(s2, (Len - i)*2 + 1, 2);
   dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
   dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');
 if dx = '整' then Result := '零元整'
  else Result := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');
end;


© 著作权归作者所有

雨田ZER0
粉丝 0
博文 7
码字总数 4584
作品 0
衢州
程序员
私信 提问
PHP ChineseUtil v1.1 新增中文数字、人民币大写转换

PHP 中文工具类 ChineseUtil,支持汉字转拼音、拼音分词、简繁互转、数字、金额大写; 本类库字典数据总共收录 73925 个汉字,包括:3955 个简体字,1761 个繁体字,68209 个其它汉字。 v1.1...

宇润
2018/12/17
938
6
money2hanzi 将金额转换为汉字大写

金额转汉子大写金额 项目地址 状态 使用 测试 实现思路

深山猎人
2016/10/24
17
0
java 类型转换时需要注意的问题

近期维护前人留下的 "chongqingdaxue的缴费平台", 前后碰到两次java类型转换的问题, 这样导致的 bug 非常不应该, 应避免. 1. String 转 Integer 代码功能: 从一个 excel 表格读出 count 列的...

sailtseng
2012/06/11
95
0
Delphi listview 点击列头排序

Delphi listview 点击列头排序 listview 的数字排序。 首先添加全局变量 m_bSort: Boolean = false; CustomSortProc(Item1, Item2: TListItem; ParamSort: Integer): Integer;; 之后在需要排......

vga
2014/08/26
585
3
2019年JS正则大全(常用)

来源: any86.github.io/any-rule/ 24小时制时间(HH:mm:ss) 12小时制时间(hh:mm:ss) base64格式 数字/货币金额(支持负数、千分位分隔符) 数字/货币金额 (只支持正数、不支持校验千分位分...

铁皮饭盒
07/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

分布式协调服务zookeeper

ps.本文为《从Paxos到Zookeeper 分布式一致性原理与实践》笔记之一 ZooKeeper ZooKeeper曾是Apache Hadoop的一个子项目,是一个典型的分布式数据一致性的解决方案,分布式应用程序可以基于它...

ls_cherish
今天
4
0
redis 学习2

网站 启动 服务端 启动redis 服务端 在redis 安装目录下 src 里面 ./redis-server & 可以指定 配置文件或者端口 客户端 在 redis 的安装目录里面的 src 里面 ./redis-cli 可以指定 指定 连接...

之渊
昨天
2
0
Spring boot 静态资源访问

0. 两个配置 spring.mvc.static-path-patternspring.resources.static-locations 1. application中需要先行的两个配置项 1.1 spring.mvc.static-path-pattern 这个配置项是告诉springboo......

moon888
昨天
4
0
hash slot(虚拟桶)

在分布式集群中,如何保证相同请求落到相同的机器上,并且后面的集群机器可以尽可能的均分请求,并且当扩容或down机的情况下能对原有集群影响最小。 round robin算法:是把数据mod后直接映射...

李朝强
昨天
4
0
Kafka 原理和实战

本文首发于 vivo互联网技术 微信公众号 https://mp.weixin.qq.com/s/bV8AhqAjQp4a_iXRfobkCQ 作者简介:郑志彬,毕业于华南理工大学计算机科学与技术(双语班)。先后从事过电子商务、开放平...

vivo互联网技术
昨天
24
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部