一个自动以中文小写数字显示年月的表头

xl6403 · 发表于 2011-6-22 11:25

多年前，我在用MD-OFFICE2000时，编写了一个公式，目的是表头每月自动更新，并以中文小写数字表示年月，还要显示的是上一月，比如：现在是2011年6月，则要显示“二○一一年五月”。当时对函数知道得不是太深，编出来的公式很复杂，不过可以满足需要就一用多年。近期，我又在EH上对TEXT函数又有了新的认识，才知过去的方法多笨拙。但我仍想把这个公式贴出来供大家一看。替代这个公式的新公式我也已编好了。

公式代码：
=TEXT(LEFTB(YEAR(NOW())),"[dbnum1]")&TEXT(MIDB(YEAR(NOW()),2,1),"[dbnum1]")&TEXT(MIDB(YEAR(NOW()),3,1),"[dbnum1]")&IF(MONTH(NOW())=1,TEXT(MIDB(YEAR(NOW()),4,1)-1,"[dbnum1]"),TEXT(MIDB(YEAR(NOW()),4,1),"[dbnum1]"))&"年"&IF(AND((MONTH(NOW()))-1<=9,(MONTH(NOW()))-1<>0),TEXT(MONTH(NOW())-1,"[dbnum1]"),IF(MONTH(NOW())=1,"十二",IF(MONTH(NOW())=11,"十",RIGHT(TEXT(LEFTB(MONTH(NOW()),1)&0,"[dbnum1]"),1)&TEXT(RIGHTB(MONTH(NOW())-1,1),"[dbnum1]"))))&"月在职人员个人所得税明细表"

复制代码

公式的效果是：
二○一一年五月在职人员个人所得税明细表

xl6403 · 发表于 2011-6-22 11:37

更正：
上面的MD-OFFICE，是MS-OFFICE的笔误。

xl6403 · 发表于 2011-6-22 11:48

原来的公式用了22个字（中文字14个，非中文单词5个），454个字符；而我新编的公式却只有17个字（中文字14个，非中文单词3个），字符44个。

wangyuhu · 发表于 2011-6-22 11:49

来看看新解法...

xl6403 · 发表于 2011-6-22 11:59

新的公式：

=TEXT(TODAY()-30,"e年m月在职人员个人所得税明细表[DBNum1]")

复制代码

一看就简单得多了，而且一看便可解读出来。而原来那个公式，解读起来很是费劲。

wangyuhu · 发表于 2011-6-22 12:14

原帖由 xl6403 于 2011-6-22 11:59 发表
新的公式：=TEXT(TODAY()-30,"e年m月在职人员个人所得税明细表[DBNum1]")一看就简单得多了，而且一看便可解读出来。而原来那个公式，解读起来很是费劲。

MS不对哇.....

piny · 发表于 2011-6-22 12:26

TODAY如果是三月一日呢

xl6403 · 发表于 2011-6-22 16:29

我在测试时没有试这天，刚才一试还真有问题，3月1日和3月2日都出错。我还没有想出解决之法。请你帮忙，想出解决之法。

yangrongguan · 发表于 2011-6-22 16:48

=TEXT(NOW()-DAY(NOW()),"e年m月在职人员个人所得税明细表[DBNum1]")

xl6403 · 发表于 2011-6-22 16:52

我又修改了，请各位大侠看看，悉否？

=TEXT(IF(AND(MONTH(TODAY())=3,OR(DAY(TODAY())=1,DAY(TODAY())=2)),TODAY()-28,TODAY()-30),"e年m月在职人员个人所得税明细表[DBNum1]")

复制代码

盼望各位斧正。

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

[原创] 一个自动以中文小写数字显示年月的表头

回复 7楼 piny 的帖子