金额转换成大写
来源:互联网 发布:火车头采集器采集淘宝 编辑:程序博客网 时间:2024/04/30 19:37
/******************************************************************************///函数名: gf_MoneyToString//功能说明:金额转换成大写//输入参数:1.data 待转换的金额//返回值: string 转换后的大写金额//函数完成:woods//调用关系:本函数为公共外部函数,可被系统开发的任何地方调用/******************************************************************************/constant string ls_bit = "万仟佰拾亿仟佰拾万仟佰拾元角分"constant string ls_num = "壹贰叁肆伍陆柒捌玖"long lmax = len( ls_bit ) + 1string ls_je, ls_dw, ls_result = ''long ll_len, i, k
ls_je = string( data, "#############.00" )ll_len = len( ls_je ) - 1ls_je = replace( ls_je, ll_len - 1, 1, '' )for i = ll_len to 1 step -1 lmax -= 2 ls_dw = mid( ls_bit, lmax, 2 ) k = long( mid( ls_je, i, 1 ) ) if k = 0 then choose case ls_dw case '元','万','亿' ls_result = ls_dw + ls_result case '分' ls_result = '整' case '角' if ls_result <> '整' then ls_result = '零' + ls_result case else choose case left( ls_result, 2 ) case '万', '亿', '元', '零' case else ls_result = '零' + ls_result end choose end choose else ls_result = mid( ls_num, k * 2 - 1, 2 ) + ls_dw + ls_result end ifnextreturn ls_result
- 金额转换成大写
- 金额转换成大写
- 金额转换成大写
- ASP小写金额转换成大写金额
- 小写金额转换成大写金额
- 数字金额转换成大写金额
- 小写金额转换成中文大写金额
- 小写金额转换成大写金额
- 小写金额转换成中文大写金额
- 金额小数转换成中文大写金额
- 将数字金额转换成大写金额
- 大写金额转换成阿拉伯数字金额
- [python]数字金额转换成大写金额
- 数字转换成大写金额
- 金额转换成中文大写
- 大写金额转换成小写
- 小写金额转换成大写
- 数字金额转换成大写
- 返回按区位码转化的汉字
- 步入IT
- 返回汉字转换后的区位码
- 校验email的合法性
- Java中常犯的错误,你知道吗?
- 金额转换成大写
- visual freeze
- 将阿拉伯数字转换为汉字数字
- Ext学习
- 当爱在靠近
- 在SQL Server 2005中解决死锁问题
- 解析分割字符串序列
- 十六进制转化成十进制
- SQL操作全集