有没有提取大写日期的公式？

chncwk · 发表于 2016-5-18 15:43

如图所示，黄色单元格里的数字要转化为绿色单元格里的中文。
而且像“20”这样的日期要写成“零贰拾”的写法。
捕获.PNG

kenliii · 发表于 2016-5-18 16:03

A1填：=TEXT(YEAR(A3),"[dbnum2]####")
C1填：=IF(MONTH(A3)<10,TEXT(MONTH(A3),"[dbnum2]零#"),TEXT(MONTH(A3),"[dbnum2]"))
E1填：="零"&TEXT(DAY(A3),"[dbnum2]")

chncwk · 发表于 2016-5-18 16:17

本帖最后由 chncwk 于 2016-5-18 16:27 编辑

kenliii 发表于 2016-5-18 16:03
A1填：=TEXT(YEAR(A3),"[dbnum2]####")
C1填：=IF(MONTH(A3)

第三个公式，应该加个条件判断吧，否则填入“15”的话出来的是“零壹拾伍”了。
我估摸着这里要加三条判断条件才行。

第二个公式，为什么用鼠标拖动或复制的话，里面的A3不能全部自动更换呢？现在只能自动更换第一个A3。

Excel 2003支持 dbnum2 函数吗？

liqi8901 · 发表于 2016-5-21 20:21

A1=NUMBERSTRING(YEAR(A3),3)
C1=IF(MONTH(A3)<10,"零"&NUMBERSTRING(MONTH(A3),2),NUMBERSTRING(MONTH(A3),2))
E1=IF(MOD(DAY(A3),10)=0,"零"&NUMBERSTRING(DAY(A3),2),NUMBERSTRING(DAY(A3),2))

wswfzwswfz · 发表于 2016-5-22 19:23

LZ头像让我想到

咒怨

chncwk · 发表于 2016-5-28 04:42

liqi8901 发表于 2016-5-21 20:21
A1=NUMBERSTRING(YEAR(A3),3)
C1=IF(MONTH(A3)

谢谢，但A1出来的是“二〇一六”

chncwk · 发表于 2016-8-10 11:54

liqi8901 发表于 2016-5-21 20:21
A1=NUMBERSTRING(YEAR(A3),3)
C1=IF(MONTH(A3)

单元格E1在个位数前也需要有前置“零”，比如5日要写成“零伍日”。

小符1992 · 发表于 2016-8-10 14:11

A1=TEXT((--MID(YEAR(A3),1,1)),"[dbnum2]")&TEXT((--MID(YEAR(A3),2,1)),"[dbnum2]")&TEXT((--MID(YEAR(A3),3,1)),"[dbnum2]")&TEXT((--MID(YEAR(A3),4,1)),"[dbnum2]")
C1=IF(MONTH(A3)<10,TEXT(MONTH(A3),"[dbnum2]零#"),TEXT(MONTH(A3),"[dbnum2]"))
E1=IF(DAY(A3)<10,TEXT(DAY(A3),"[dbnum2]零#"),TEXT(DAY(A3),"[dbnum2]"))

chncwk · 发表于 2016-8-10 18:11

小符1992 发表于 2016-8-10 14:11
A1=TEXT((--MID(YEAR(A3),1,1)),"[dbnum2]")&TEXT((--MID(YEAR(A3),2,1)),"[dbnum2]")&TEXT((--MID(YEAR(A3 ...

你这个E1在=10、20、30时又少了前置“零”。

小符1992 · 发表于 2016-8-11 09:15

chncwk 发表于 2016-8-10 18:11
你这个E1在=10、20、30时又少了前置“零”。

E1=IF(MOD(DAY(A3),10)=0,"零"&TEXT(DAY(A3),"[dbnum2]"),TEXT(DAY(A3),"[dbnum2]"))

		自动登录	找回密码
密码			免费注册

[求助] 有没有提取大写日期的公式？

最新热点 /1