手机看片福利久久,久久天天躁狠狠躁夜夜躁综合

如何在Excel中實(shí)現(xiàn)農(nóng)歷日期轉(zhuǎn)化

L羅樂 >《生日提醒和合同到期提醒》

2016.10.18

關(guān)注

農(nóng)

歷與陽歷（公歷）是兩套不同的歷法，在Excel中正常顯示的陽歷日期，但對(duì)于我們中國人而言不是很方便，不能馬上看出農(nóng)歷日期，因?yàn)槲覀兂诉^洋節(jié)之外還要過中國人的節(jié)日嘛。

這里老墨整理一個(gè)比較完整的函數(shù)公式來轉(zhuǎn)化農(nóng)歷日期。

簡單版（數(shù)字呈現(xiàn)）

下表中B2單元格就是第一種情況，“2016-9-17”表示農(nóng)歷是九月十七日。該公式是：=TEXT(A2,'[$-130000]YYYY-M-D')。

TEXT()用來轉(zhuǎn)化文本格式，這個(gè)公式的關(guān)鍵是：[$-130000]，它是Excel中陽歷轉(zhuǎn)化農(nóng)歷的參數(shù)，不過它存在一個(gè)問題就是沒法計(jì)算閏月，估計(jì)老外無法理解中國人閏月的概念，凡是閏年，它直接表示一年13個(gè)月，道理是一樣的。

進(jìn)階版（中文呈現(xiàn)）

上表C2單元格，相比較B2單元格呈現(xiàn)就有了進(jìn)階，以中文呈現(xiàn)，并且以天干地支表現(xiàn)年份。

公式相對(duì)之前肯定復(fù)雜：=MID(' 甲乙丙丁戊己庚辛壬癸',MOD(TEXT(A2,'[$-130000]e')-4,10) 1,1)&MID('子丑寅卯辰巳午未申酉戌亥',MOD(TEXT(A2,'[$-130000]e')-4,12) 1,1)&'年'&TEXT(A2,' [$-130000][DBNum1]m月d日')

我們可以分解為兩大部分：

1）計(jì)算年份：MID(' 甲乙丙丁戊己庚辛壬癸',MOD(TEXT(A2,'[$-130000]e')-4,10) 1,1)&MID('子丑寅卯辰巳午未申酉戌亥',MOD(TEXT(A2,'[$-130000]e')-4,12) 1,1)&'年'，這里加了MID()文本提取函數(shù)來獲取天干地支。

2）計(jì)算月日：TEXT(A2,' [$-130000][DBNum1]m月d日')，這里增加了參數(shù)[DBNum1]，表示數(shù)值以“一、而二、三......”中文格式顯示。

兩者組合一起的就是C列結(jié)果。

完美版

作為中國人，我們知道“一月”不叫“一月”，叫“正月”；“十二月”不叫“十二月”，叫“臘月”；同樣每月前10天，是初一、初二......20日開始是廿、廿一......30日是卅等等。

如何更完美地呈現(xiàn)，在這里老墨將進(jìn)階版公式再度分解，加上判斷，然后再組合就實(shí)現(xiàn)了效果，公式：

=MID(' 甲乙丙丁戊己庚辛壬癸',MOD(TEXT(A2,'[$-130000]e')-4,10) 1,1)&MID('子丑寅卯辰巳午未申酉戌亥',MOD(TEXT(A2,'[$-130000]e')-4,12) 1,1)&'年'&IF(TEXT(A2,' [$-130000]m')*1=12,' 臘',IF(TEXT(A2,' [$-130000]m')*1=1,' 正',TEXT(A2,' [$-130000][DBNum1]m')))&'月'&IF(TEXT(A2,' [$-130000]d')-9<=1,'初',IF(TEXT(A2,' [$-130000]d')-29>=1,'卅',IF(TEXT(A2,' [$-130000]d')-19>=1,'廿','十')))&IF(RIGHT(TEXT(A2,' [$-130000]d'),1)*1=0,'',TEXT(RIGHT(TEXT(A2,' [$-130000]d'),1)*1,'[DBNum1]d'))&'日'

1）年份公式：

MID(' 甲乙丙丁戊己庚辛壬癸',MOD(TEXT(A2,'[$-130000]e')-4,10) 1,1)&MID('子丑寅卯辰巳午未申酉戌亥',MOD(TEXT(A2,'[$-130000]e')-4,12) 1,1)&'年'

2）月份公式：

IF(TEXT(A2,' [$-130000]m')*1=12,' 臘',IF(TEXT(A2,' [$-130000]m')*1=1,' 正',TEXT(A2,' [$-130000][DBNum1]m')))&'月'

3）日期公式：

IF(TEXT(A2,' [$-130000]d')-9<=1,'初',IF(TEXT(A2,' [$-130000]d')-29>=1,'卅',IF(TEXT(A2,' [$-130000]d')-19>=1,'廿','十')))&IF(RIGHT(TEXT(A2,' [$-130000]d'),1)*1=0,'',TEXT(RIGHT(TEXT(A2,' [$-130000]d'),1)*1,'[DBNum1]d'))&'日'