EXCEK中阿拉伯数字日期转换为中文大写方法.doc

EXCEK中阿拉伯数字日期转换为中文大写方法OFFICE 2011-02-14 19:53:53 阅读58 评论0 字号：大中小订阅一、日期转换为中文大写1、日期中“年”中文大写的公式设置在表示“年”的单元格输入：=TEXT(MID(A5,1,1),DBNUM2)&TEXT(MID(A5,2,1),DBNUM2)&TEXT(MID(A5,3,1),DBNUM2)&TEXT(MID(A5,4,1),DBNUM2)MID函数是提取字符函数，公式中“MID(A5,1,1)”，表示从A5单元格数字左第一个字符起提取一个字符，结果是“2”。TEXT函数将阿拉伯数字转换为中文大写，公式中“TEXT(MID(A5,1,1),DBNUM2)”表示将“2”转换为“贰”。整个公式由四个文本连接符号“&”连接而成，结果是“贰零零叁”。不能直接利用TEXT函数将“2003”转换为中文大写，因为“TEXT(2003,DBNUM2)”的结果是“贰仟零叁”，所以需将“2003”逐个数字转换为中文大写。2、日期中“月”中文大写的公式设置在表示“月”的单元格输入：=IF(B511,零&TEXT(B5,DBNUM2),TEXT(B5,DBNUM2)IF函数是一个条件判断函数，整个公式可以表述为：如果B5单元格月份数为1-10之间数字，则将该数字转换为中文大写的同时，在前面加“零”，如当前是5月，则结果是“零伍”，否则直接将B5中月份数字转换为中文大写，如当前是11月，则结果是“壹拾壹”。3、日期中“日”中文大写公式设置在表示“日”的单元格输入：=IF(OR(C511,C5=20,C5=30),零&TEXT(C5,DBNUM2),TEXT(C5,DBNUM2)公式中“OR(C511,C5=20,C5=30)”表示“C5或者小于11，或者等于20，或者等于30”。整个公式可以表述为：如果C5或者小于11，或者等于20，或者等于30，那么将C5中数字转换为中文大写的同时，在前面加“零”，否则直接将C5转换为中文大写数字。=IF(A5=10,TEXT(A5,拾),IF(A510,TEXT(MID(A5,1,1),拾)&TEXT(MID(A5,2,1),DBNUM2)二、转换年月日大写(以A3为例子)1、年份的条件公式:=TEXT(MID(A3,1,1),DBNUM2)&TEXT(MID(A3,2,1),DBNUM2)&TEXT(MID(A3,3,1),DBNUM2)&TEXT(MID(A3,4,1),DBNUM2)2、月份的条件公式:(例1-9-壹-玖 10-拾 11-12-拾壹-拾贰)=IF(A3=10,TEXT(A3,拾),IF(A310, A313),TEXT(MID(A3,1,1),拾)&TEXT(MID(A3,2,1),DBNUM2),)3、日的条件公式:(例1-9-壹-玖 10-拾 11-19-拾壹-拾玖 20-贰拾21-29-贰拾壹-贰拾玖 30-叁拾 31-叁拾壹)=IF(A3=10,TEXT(A3,拾),IF(A310, A320, A330),TEXT(MID(A3,1,1),贰拾)&TEXT(MID(A3,2,1),DBNUM2), IF(A3=30,TEXT(A3,叁拾), IF(A3=31,TEXT(A3,叁拾壹),)三、（1）转换年月日大写(导入sheet1表行3中有效日期起K、L、M三例的信息)1、年份的条件公式:=TEXT(MID(SHEET1!K3,1,1),DBNUM2)&TEXT(MID(SHEET1!K3,2,1),DBNUM2)&TEXT(MID(SHEET1!K3,3,1),DBNUM2)&TEXT(MID(SHEET1!K3,4,1),DBNUM2)2、月份的条件公式:=IF(SHEET1!L3=10,TEXT(SHEET1!L3,拾),IF(SHEET1!L310, SHEET1!L313),TEXT(MID(SHEET1!L3,1,1),拾)&TEXT(MID(SHEET1!L3,2,1),DBNUM2),)3、日份的条件公式:=IF(Sheet1!M3=10,TEXT(Sheet1!M3,拾),IF(Sheet1!M310, Sheet1!M320, Sheet1!M330),TEXT(MID(Sheet1!M3,1,1),贰拾)&TEXT(MID(Sheet1!M3,2,1),DBNUM2), IF(Sheet1!M3=30,TEXT(Sheet1!M3,叁拾), IF(Sheet1!M3=31,TEXT(Sheet1!M3,叁拾壹),)三、（2）转换年月日大写(导入sheet1表行3中有效日期讫N、O、P三例的信息)1、年份的条件公式:=TEXT(MID(SHEET1!N3,1,1),DBNUM2)&TEXT(MID(SHEET1!N3,2,1),DBNUM2)&TEXT(MID(SHEET1!N3,3,1),DBNUM2)&TEXT(MID(SHEET1!N3,4,1),DBNUM2)2、月份的条件公式:=IF(SHEET1!O3=10,TEXT(SHEET1!O3,拾),IF(SHEET1!O310, SHEET1!O313),TEXT(MID(SHEET1!O3,1,1),拾)&TEXT(MID(SHEET1!O3,2,1),DBNUM2),)3、日份的条件公式:=IF(Sheet1!P3=10,TEXT(Sheet1!P3,拾),IF(Sheet1!P310, Sheet1!P320, Sheet1!P330),TEXT(MID(Sheet1!P3,1,1),贰拾)&TEXT(MID(Sheet1!P3,2,1),DBNUM2), IF(Sheet1!P3=30,TEXT(Sheet1!P3,叁拾), IF(Sheet1!P3=31,TEXT(Sheet1!P3,叁拾壹),)四、（1）转换年月日大写(导入sheet1表行3中有效日期起I、J、K三例的信息)1、年份的条件公式:=TEXT(MID(SHEET1!I3,1,1),DBNUM2)&TEXT(MID(SHEET1!I3,2,1),DBNUM2)&TEXT(MID(SHEET1!I3,3,1),DBNUM2)&TEXT(MID(SHEET1!I3,4,1),DBNUM2)2、月份的条件公式:=IF(SHEET1!J3=10,TEXT(SHEET1!J3,拾),IF(SHEET1!J310, SHEET1!J313),TEXT(MID(SHEET1!J3,1,1),拾)&TEXT(MID(SHEET1!J3,2,1),DBNUM2),)3、日份的条件公式:=IF(Sheet1!K3=10,TEXT(Sheet1!K3,拾),IF(Sheet1!K310, Sheet1!K320, Sheet1!K330),TEXT(MID(Sheet1!K3,1,1),贰拾)&TEXT(MID(Sheet1!K3,2,1),DBNUM2), IF(Sheet1!K3=30,TEXT(Sheet1!K3,叁拾), IF(Sheet1!K3=31,TEXT(Sheet1!K3,叁拾壹),)四、（2）转换年月日大写(导入sheet1表行3中有效日期讫L、M、N三例的信息)1、年份的条件公式:=TEXT(MID(SHEET1!L3,1,1),DBNUM2)&TEXT(MID(SHEET1!L3,2,1),DBNUM2)&TEXT(MID(SHEET1!L3,3,1),DBNUM2)&TEXT(MID(SHEET1!L3,4,1),DBNUM2)2、月份的条件公式:=IF(SHEET1!M3=10,TEXT(SHEET1!M3,拾),IF(SHEET1!M310, SHEET1!M313),TEXT(MID(SHEET1!M3,1,1),拾)&TEXT(MID(SHEET1!M3,2,1),DBNUM2),)3、日份的条件公式:=IF(Sheet1!N3=10,TEXT(Sheet1!N3,拾),IF(Sheet1!N310, Sheet1!N320, Sheet1!N330),TEXT(MID(Sheet1!N3,1,1),贰拾)&TEXT(MID(Sheet1!N3,2,1),DBNUM2), IF(Sheet1!N3=30,TEXT(Sheet1!N3,叁拾), IF(Sheet1!N3=31,TEXT(Sheet1!N3,叁拾壹),)工作表中当前阿拉伯数字日期转换为中文大写方法 根据支票规定的年、月、日位置填写，因为在支票存根中已建立了出票日期信息，根据它来创建中文大写日期。 根据我国票据法有关规定，票据的出票日期必须使用中文大写。为防止变造票据的出票日期，在填写月、日时，月为壹至壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加“零”。根据这些特殊日期填写要求，在表中表示年月日的单元格分别设置公式如下： 日期中“年”中文大写的公式设置 在表示“年”的I1单元格输入：=TEXT(MID(A5,1,1),DBNUM2)&TEXT(MID(A5,2,1),DBNUM2)&TEXT(MID(A5,3,1),DBNUM2)&TEXT(MID(A5,4,1),DBNUM2)。MID函数是提取字符函数，公式中“MID(A5,1,1)”，表示从A5单元格数字左第一个字符起提取一个字符，结果是“2”。TEXT函数将阿拉伯数字转换为中文大写，公式中“TEXT(MID(A5,1,1),DBNUM2)”表示将“2”转换为“贰”。整个公式由四个文本连接符号“&”连接而成，结果是“贰零零叁”。我们不能直接利用TEXT函数将“2003”转换为中文大写，因为“TEXT(2003,DBNUM2)”的结果是“贰仟零叁”，所以需将“2003”逐个数字转换为中文大写。 日期中“月”中文大写的公式设置 在表示“月”的J1单元格输入：=IF(B511,零&TEXT(B5,DBNUM2),TEXT(B5,DBNUM2)。IF函数是一个条件判断函数，整个公式可以表述为：如果B5单元格月份数为1-10之间数字，则将该数字转换为中文大写的同时，在前面加“零”，如当前是5月，则结果是“零伍”，否则直接将B5中月份数字转换为中文大写，如当前是11月，则结果是“壹拾壹”。 日期中“日”中文大写公式设置 在表示“日”的K1单元格输入：=IF(OR(C511,C5=20,C5=30),零&TEXT(C5,DBNUM2),TEXT(C5,DBNUM2)。公式中“OR(C511,C5=20,C5=30)”表示“C5或者小于11，或者等于20，或者等于30”。整个公式可以表述为：如果C5或者小于11，或者等于20，或者等于30，那么将C5中数字转换为中文大写的同时，在前面加“零”，否则直接将C5转换为中文大写数字。英文大小写互换=UPPER(A2) 小写换大写=LOWER(A2) 大写换小写=PROPER(A2) 首字大写根据支付结算办法要求：“票据的出票日期必须使用中文大写。为防止变造票据的出票日期，在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加零；日为拾壹至拾玖的，应在其前加壹。如1月15日，应写成零壹月壹拾伍日。再如10月20日，应写成零壹拾月零贰拾日。”一般在填写票据年份时，是直接用四个中文大写数字来填写的，如“2008”应写为“贰零零捌”。 Windows 7,Office,Word,Excel,PowerPoint,Access,Windows,Windows 7,办公,操作系统# a G; Z& A. & i6 y因此，在进行函数设计的时候，我们必须对四位年度数字进行逐位转换，对月、日的转换可直接使用Excel提供的中文数字显示格式并判断是否应在数字前加“零”就可以了。 Windows 7,Office,Word,Excel,PowerPoint,Access,Project,Outlook,宏,VBA,排版,函数,图表,公式,幻灯片,演示文稿,动画,程序,代码,数据库,下载,软件,技巧,工具,求助,讨论,教程- i: d* 6 u/ Y9 f$ 5 i/ S现在假定使用当前日期为票据的签发日期，那么相应的中文大写日期函数如下：Windows 7,Office,Word,Excel,PowerPoint,Access,Project,Outlook,宏,VBA,排版,函数,图表,公式,幻灯片,演示文稿,动画,程序,代码,数据库,下载,软件,技巧,工具,求助,讨论,教程) o L# r2 q2 * e=TEXT(MID(YEAR(TODAY()&,1,1),dbnum2)&TEXT(MID(YEAR(TODAY()&,2,1),dbnum2)&TEXT(MID(YEAR(TODAY()&,3,1),dbnum2)&TEXT(MID(YEAR(TODAY()&,4,1),dbnum2)&年&IF(OR(MONTH(TODAY()=2,MONTH(TODAY()=10),零,)&TEXT(MONTH(TODAY(),dbnum2)&月&IF(OR(DAY(TODAY()=10,DAY(TODAY()=20,DAY(TODAY()=30),零,)&TEXT(DAY(TODAY(),dbnum2)&日本处使用函数，除前面已经介绍过的TEXT函数外，TODAY()是取当前日期函数,YEAR()、MONTH()、DAY()分别为取相应日期的年、月、日函数，MID(text,start_num,num_chars)函数是从文本Text中第Start_num个字符起取Num_chars个字符。WOHOME论坛) y9 s2 UnM- S# u以下为本人简化的公式：=TEXT(B7,yyyydbnum2年)&IF(OR(MONTH(B7)3,MONTH(B7)=10),零,)&TEXT(B7,mdbnum2月)&IF(OR(DAY(B7)11,DAY(B7)=20,DAY(B7)=30),零,)&TEXT(B7,d日dbnum2)=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(B7,yyyy年mm月dd日dbnum2),壹拾月,零壹拾月),壹拾日,零壹拾日),贰拾日,零贰拾日),叁拾日,零叁拾日)/ ) R5 G7 H* | r5 Nc/ W8 1 ?; g0 Q% H1. =TEXT(B7,yyyy年&IF(OR(MONTH(B7)3,MONTH(B7)=10),零,)&m月&IF(OR(DAY(B8)11,DAY(B8)=20,DAY(B8)=30),零,)&d日