将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分
'将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分
Public Function Num2Chi(ByVal txtJE As Double) As String
Dim i, K As Integer
Dim NC, nd, ka, chrNum, strZheng As String
Dim c1, c2, c3 As String
Dim K1 As Integer
Dim Zheng As String
Dim Xiao As String
NC = Trim(Format(txtJE, "##0.00"))
c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
c2 = "角分"
c3 = "玖捌柒陆伍肆叁贰壹"
If NC = 0 Then
Num2Chi = "零元整"
Exit Function
End If
Num2Chi = ""
Zheng = Mid(NC, 1, (Len(NC) - 3))
Xiao = Mid(NC, (Len(Zheng) + 2))
If Val(Xiao) <> 0 Then
For i = Len(Xiao) To 1 Step -1
chrNum = Mid(Xiao, i, 1)
If chrNum <> 0 Then
Num2Chi = Mid(c2, i, 1) & Num2Chi
Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi
End If
Next i
End If
K = 0
If Val(Zheng) <> 0 Then
Num2Chi = "元" & Num2Chi
For i = Len(Zheng) To 1 Step -1
If (Len(Zheng) - i) = 4 Then
Num2Chi = "万" & Num2Chi
ElseIf (Len(Zheng) - i) = 8 Then
Num2Chi = "亿" & Num2Chi
ElseIf (Len(Zheng) - i) = 12 Then
Num2Chi = "万" & Num2Chi
End If
chrNum = Mid(Zheng, i, 1)
If chrNum <> 0 Then
If i = Len(Zheng) Then
Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi
Else
If (Len(Zheng) - i) <> 4 And (Len(Zheng) - i) <> 8 And (Len(Zheng) - i) <> 12 Then
Num2Chi = Mid(c1, (Len(c1) - K), 1) & Num2Chi
End If
Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi
End If
Else
If Mid(Num2Chi, 1, 1) <> "元" And Mid(Num2Chi, 1, 1) <> "万" And Mid(Num2Chi, 1, 1) <> "亿" Then
If Mid(Num2Chi, 1, 1) <> "零" Then
Num2Chi = "零" & Num2Chi
End If
End If
End If
K = K + 1
Next i
End If
If Right(Trim(Num2Chi), 1) <> "分" Then
Num2Chi = Num2Chi & "整"
End If
End Function
将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分相关推荐
- 人民币小写转换为大写函数
人民币小写转换为大写 <script language=javascript> mymoney=window.prompt("请输入金额:"); </script ...
- c语言如何小写转换为大写字母,c语言怎么将小写转换为大写
c语言怎么将小写转换为大写? 在 C 语言中区分字母的大小写,利用 ASCII 码中大写字母和小写字母之间的转换关系(差值为 32),可以将小写字母转换为大写字母.编写程序实现,从键盘上输入一个小写字 ...
- php人民币函数,php人民币小写转大写的函数,不限长度,精确到分(推荐)
本文介绍下,php实现的一个人民币小写转大写的函数,不限数字长度,可以精确到分.有需要的朋友,参考下吧. 在打印发票或显示账单时,经常需要将人民币的金额由小写转为大写. 以下是一个改进后的人民币小写转 ...
- c++将小写转换为大写函数_必须掌握的基础函数组合应用技巧,提高效率,准时下班...
点击上方"Excel函数公式"免费订阅 货币,生活中必不可少的东西,是物品价值等的直接体现,在实际的工作中也经常遇到,如果给定的数据中,要对其进行格式的设置,你会怎么做? 一.Do ...
- python将小写字母转化为大写_python如何定义函数将小写转换为大写
展开全部 1.全部转换成大写2113:upper() 用法:5261 str = 'marsggbo' print str.upper() 结果:MARSGGBO 2.全部转换成小写:4102lowe ...
- 计算机小写换大写函数,在Excel中将金额从小写转换为大写以在Excel RMB中自动将金额大写的三种方法...
一位财务职位的合伙人之前曾问过小雅这个问题. 在工作中,她经常用中文大写填写金额. 如果将大写字母的数字一一填写,这将很耗时且费力,而且事半功倍. 并且面对大量数据,它效率低下并且容易出错. 今天,小 ...
- 人民币小写转换为大写
今天在超市,忽然想到可以写一段代码实现当收银员输入阿拉伯数字的人民币时,能够以规范的大写形式将其自动打印到发票上. 注:转换规范如下示例: (1) 100000010100.09 人民币壹仟亿零壹万零 ...
- 蓝桥杯算法提高 小写转换为大写
题目链接 问题描述 输入一个小写字母,转换成大写字母. 输入格式 输入小写字母 输出格式 输出转换后的大写字母 样例输入 a 样例输出 A 代码: #include<bits/stdc++.h& ...
- 输入一个字符,是小写转换为大写,大写转换为小写,其他字符原样输出
s = input('请输入一个字符:')if 'a' <= s <= 'z':print(chr(ord(s) - 32))elif 'A' <= s <= 'Z':prin ...
最新文章
- 前端进阶(一)webpack 概述
- Android -- 带你从源码角度领悟Dagger2入门到放弃(三)
- 装完sql后修改计算机名后不能进行发布的订阅的解决办法
- 小练习——过滤掉出现次数最多的数据
- java 判断对象是否是xml格式_java对象与xml格式之间的转换
- Chrome浏览器如何安装与使用PDFViewer扩展程序
- tableciewCell 样式
- CSS实现轮播图效果以及遮罩效果
- 阿里云Maven仓库
- 2022年全球及中国叔十二烷基硫醇行业头部企业市场占有率及排名调研报告
- Excel问题:excel表格的状态栏,不显示求和怎么办?
- 人生被彻底改变时,我还以为那只是寻常的一天
- 用python祝福父亲节_2020年父亲节给爸爸的微信祝福语27条
- 上海地铁和北京地铁_地铁介绍
- Pytorch(pip安装示例)
- 一条sql是如何执行的
- vi实践——vi编辑器使用实践小记
- 无法加载xxx.dll文件,找不到指定的模块(异常来自HRESULT:0x8007007E)解决
- JAMA Neurology:帕金森病不同疾病阶段的神经影像学生物标志物
- 我用Python批量读取考生成绩单,并自动发送录取通知书邮件
热门文章
- css3选择器如何选择同一个父级下的相同class的第一个元素 nth-child nth-of-type
- linux下ubuntu调分辨率,修改Ubuntu桌面分辨率
- 文件上传及upload-labs闯关
- c语言特征码搜索,[原创]一个速度不是很快但是逻辑很简单的内存特征码搜索
- 《操作系统原理技术与编程》C代码与习题答案
- Typora与Mermaid绘图
- hadoop分布式安装部署详细视频教程(网盘附配好环境的CentOS虚拟机文件/hadoop配置文件)
- SAR ADC设计19:高速高精度比较器
- 浅谈中国区块链发展史
- 软件测试的魅力何在?您为什么选择测试一行而不做开发?----来自知乎