c语言人民币大小写转换,人民币大小写转换函数.xls

人民币大小写转换函数.xls

Sheet3

Sheet1

IF(A1=0,"",IF(ABS(A1)<0.995,"",TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,IF(ABS(A1)<0.005,"","整"),TEXT(IF(ABS(A1)<0.095,"",LEFT(RIGHT(TEXT(A1,".00"),2))),"[dbnum2]")&IF(LEFT(RIGHT(TEXT(A1,".00"),2))*1=0,"","角")&IF(RIGHT(TEXT(A1,".00"))*1=0,"整",TEXT(RIGHT(TEXT(A1,".00")),"[dbnum2]")&"分")))

IF(A1=0,"",IF(ABS(A1)<1,"",TEXT(TRUNC(ABS(A1)),"[DBNum2]")&"元")&IF(RIGHT(TRUNC(A1*100),2)*1=0,IF(ABS(A1)<0.01,"","整"),IF(ABS(A1)<0.1,"",TEXT(RIGHT(TRUNC(A1*10)),"[dbnum2]"))&IF(RIGHT(TRUNC(A1*10))*1=0,"","角")&IF(RIGHT(TRUNC(A1*100))*1=0,"整",TEXT(RIGHT(TRUNC(A1*100)),"[dbnum2]")&"分")))

IF(AND(RIGHT(INT(ROUND(ABS(A1),2)/10000))="0",RIGHT(INT(ROUND(ABS(A1),2)/1000))<>"0"),SUBSTITUTE(TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]"),"万","万零"),TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]"))

IF(AND(RIGHT(TRUNC(ABS(A1)/10000))="0",RIGHT(TRUNC(ABS(A1)/1000))<>"0"),SUBSTITUTE(TEXT(TRUNC(ABS(A1)),"[DBNum2]"),"万","万零"),TEXT(TRUNC(ABS(A1)),"[DBNum2]"))

近来转了转几个EXCEL相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。

通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将其列出。

公式一：

SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")

公式二：

CONCATENATE(IF(A1<0,"负",""),TEXT(IF(TRUNC(A1)=0,"",TRUNC(ABS(A1))),"[DBNum2]"),IF(INT(TRUNC(A1))=0,"","元"),TEXT(IF(OR(ABS(A1)<0.1,TRUNC(A1)=A1),"",RIGHT(TRUNC(A1*10),1)),"[DBNum2]"),IF(RIGHT(TRUNC(A1*10),1)="0","","角"),TEXT(IF(RIGHT(TRUNC(A1*100),1)="0","",RIGHT(TRUNC(A1*100),1)),"[DBNum2]"),IF(RIGHT(TRUNC(A1*100),1)="0","","分"))

公式三：

IF(ROUND(A1,2)=0,"",IF(ROUND(ABS(A1),2)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,"整",IF(RIGHT(TEXT(A1,".00"),4

c语言人民币大小写转换,人民币大小写转换函数.xls相关推荐

巧用Excel 轻松转换人民币大小写
巧用Excel 轻松转换人民币大小写 2010-02-08 11:22 要将人民币小写金额转换成大写格式,用Excel提供的格式,将自定义格式类型中的"[dbnum2]G/通用格 ...
C语言实例-大小写字母间的转换
初学C语言都会遇到要求写大小写转换的题目这类题目主要通过ASCII(美国信息交换标准代码)码差值实现,A对应ASCII码十进制数字是65,a对应ASCII码十进制数字是97,即大小写字母之间ASCI ...
C#转换人民币大写金额
/// <summary>/// 转换人民币大写金额./// </summary>public class RMBConverter{/// <summary>// ...
C# 转换人民币大小金额（WinForm、Asp.Net）
/// <summary> /// 转换人民币大小金额 /// </summary> /// <param name=&q ...
VIM使用系列：转换文本大小写
2019独角兽企业重金招聘Python工程师标准>>> 今天进行开发时,从网上摘了一段AVI数据结构代码,使用的是windows下的匈牙利命名法,数据类型也是windows下的DWO ...
python字符串的切片方式是[n、m、不包括m_python字符串的操作（去掉空格strip()，切片，查找，连接join()，分割split()，转换首字母大写，转换字母大小写...）...
#可变变量:list, 字典 #不可变变量:元祖,字符串字符串的操作(去掉空格, 切片, 查找, 连接, 分割, 转换首字母大写, 转换字母大小写, 判断是否是数字字母, 成员运算符(in / no ...
大小写字母转换(java大小写字母转换)
苹果4SQQ密码大小写字母怎么转换不?苹果4SQQ密码大小写字母每次要输密码,当时在电脑上设置的密码,可以改变大小写,但是到了手机上,我不知道怎么换大小写,那位朋友告诉下苹果手机输入法怎么改字母的 ...
转换字母大小写（小写转大写）
#include<stdio.h> int main() { char a,b; scanf("%c",&a); b=a-32; ...
ASP英文转换成大小写函数LCase,UCase
ASP 英文转换成大小写函数LCase UCase ASP UCase 在ASP UCase函数用于将字符串转换为大写.该UCase函数字符串参数可以是任何有效的字符串. 所有作为参数传递的字符串UC ...

c语言人民币大小写转换,人民币大小写转换函数.xls

c语言人民币大小写转换,人民币大小写转换函数.xls相关推荐

最新文章

热门文章