excel农历转换公式
1、如何在本计算机中的其他文件中使用？
在VB编辑器中添加一个“模块”将文档里的红色代码加入其中，请将此文件另存为加载宏（保存类型中最后一个）然后在菜单工具-加载宏中选择后即可
2、如何使用函数？
像其他函数一样用就行如下截图：
Public Function NongLi(Optional XX_DA TE As Date)
Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay
Dim GongliStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
'获取当前系统时间
curTime = XX_DATE
'天干名称
TianGan(0) = "甲"
TianGan(1) = "乙"
TianGan(2) = "丙"
TianGan(3) = "丁"
TianGan(4) = "戊"
TianGan(5) = "己"
TianGan(6) = "庚"
TianGan(7) = "辛"
TianGan(8) = "壬"
TianGan(9) = "癸"
'地支名称
DiZhi(0) = "子"
DiZhi(1) = "丑"
DiZhi(2) = "寅"
DiZhi(3) = "卯"
DiZhi(4) = "辰"
DiZhi(5) = "巳"
DiZhi(6) = "午"
DiZhi(7) = "未"
DiZhi(8) = "申"
DiZhi(9) = "酉"
DiZhi(10) = "戌" DiZhi(11) = "亥"
'属相名称
ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" '农历日期名DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十"
DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "廿七" DayName(28) = "廿八" DayName(29) = "廿九" DayName(30) = "三十" '农历月份名MonName(0) = "*" MonName(1) = "正" MonName(2) = "二" MonName(3) = "三" MonName(4) = "四" MonName(5) = "五" MonName(6) = "六" MonName(7) = "七" MonName(8) = "八" MonName(9) = "九" MonName(10) = "十" MonName(11) = "十一" MonName(12) = "腊" '公历每月前面的天数MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334
'农历数据NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694
NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413
NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709 NongliData(90) = 2890 NongliData(91) = 267946 NongliData(92) = 2773 NongliData(93) = 592565
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877
'生成当前公历年、月、日==> GongliStr
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
GongliStr = curYear & "年"
If (curMonth < 10) Then
GongliStr = GongliStr & "0" & curMonth & "月"
Else
GongliStr = GongliStr & curMonth & "月"
End If
If (curDay < 10) Then
GongliStr = GongliStr & "0" & curDay & "日"
Else
GongliStr = GongliStr & curDay & "日"
End If
'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)
TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38
If ((curYear Mod 4) = 0 And curMonth > 2) Then
TheDate = TheDate + 1
End If
'计算农历天干、地支、月、日
isEnd = 0
m = 0
Do
If (NongliData(m) < 4095) Then
k = 11
Else
k = 12
End If
n = k
Do
If (n < 0) Then
Exit Do
End If
'获取NongliData(m)的第n个二进制位的值
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate <= 29 + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
If (k = 12) Then
If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
'生成农历天干、地支、属相==> NongliStr
NongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"
NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")"
'生成农历月、日==> NongliDayStr
If (curMonth < 1) Then
NongliDayStr = "闰" & MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr & "月"
NongliDayStr = NongliDayStr & DayName(curDay)
NongLi = NongliStr & NongliDayStr
End Function
阳历转化成农历法
阳历转化成农历法
————————————————————————————————作者：————————————————————————————————日期：
c++中怎样将阳历转化成农历 已关闭20[ 标签：c++, 阳历, 农历 ] 小^鱼、2011-05-03 11:06 推荐答案 一、原理篇 1．公历转换农历的算法 公历（Gregorian Calendar）与农历（Chinese Lunar Calendar）的转换关系不是一个简单的公式就可以完成，其中的转换比较复杂，原因是农历的制定相当复杂，是根据天文观测进行指定的。 比较常用并且比较简单的公历转换农历算法就是查表方法。首先要保存公历农历的转换信息：以任何一年作为起点，把从这一年起若干年的农历信息保存起来（在我的C++类中，是从1900年作为起点的。选择一个起始点的思想十分重要，在下面的干支纪法和二十四节气中也体现到了）。回想一下，我们平时是怎样来转换公历农历的呢？是查阅历书，历书中有每一天的公历农历，直接一查就可以了。那么我们可不可以也这样做呢？当然可以，但是这样做要收录每一天的信息，工作量就会很大，所以我们要简化这些信息。如何简化呢？ 要保存一年的信息，其实只要两个信息就可以了：（1）农历每个月的大小；（2）今年是否有闰月，闰几月以及闰月的大小。用一个整数来保存这些信息就足够了。具体的方法是：用一位来表示一个月的大小，大月记为1，小月记为0，这样就用掉了12位，再用低四位来表示闰月的月份，没有闰月记为0。比如说，2000年的信息数据是0x0c960，转化成二进制就是1100100101100000，表示的含义是1、2、5、8、10、11月大，其余月小，低四位为0说明没有闰月。2001年的农历信息数据是0x0d954，其中的4表示该年闰4月，月份大小信息就是0x0d95，具体的就是1、2、4、5、8、10、12月大，其余月小。这样就可以用一个数组来保存这些信息。在我的C++类中是用m_lunarInfo这个数组来保存这些信息的。 下面就是公历转换成农历的具体算法： （1）计算所求时间到起始年正月初一的天数。 （2）从起始年份开始，减去每一月的天数，一直到剩余天数没有下一个月多为止。此时，m_lunarInfo的下标到了多少，就是减去了多少年，用起始年份加上这个下标就可以得到农历年份，然后看减去了几个月。如果本年不闰月或者闰月还在后面，就可以直接得到农历月份，如果在闰月月份数后面一个月，则这个月就是闰月。剩余的天数就是农历日。（具体实现时有所改进。） 2．利于泰勒公式巧算星期 在应用数学中有一个计算某一天是星期几的公式，这就是泰勒公式。公式如下： w = [c÷4] - 2c + y + [y÷4] + [26(m+1)÷10] + d - 1，其中w就是所求日期的星期数。如果求得的数大于（小于）7，就减去（加上）7的倍数，直到余数小于7为止。式子中c是指公
15-Excel中日期格式转换问题
Excel中日期格式转换问题 1.数字格式转年月日格式 工作表中出生年月日格式格式是如：198707141987090620090902如果想改成1987-7-14或改成1987年7月14日。 1、就用此函数插入一列如B列，B1=(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2));其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987-7-14； 2、插入一列如B列，B1=(LEFT(A1,4)&"年"&MID(A1,5,2)&"月"&RIGHT(A1,2)&"日");其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987年7月14日。 把这种格式2009.9.2转换成2009-09-02这样的格式：假如原始数据在A列从A1开始，则在B1输入公式=TEXT(SUBSTITUTE(A1,".","-"),"yyyy-mm-dd")，然后下拉复制公式即可。 2.在Excel中将非日期格式数据转换为日期格式 如果Excel表格中有大量的类似“19841006”、“19841029”非日期格式的数据要转换为日期格式，如“1984-10-6”，可以用分列的方法： 1）.选择需要转换单元格或区域，单击菜单“数据→分列”，弹出“文本分列向导-3之步骤1”对话框。如果是Excel2007，则在功能区中选择“数据”选项卡，在“数据工具”组中，单击“分列”按钮。
2）.单击两次“下一步”，在“文本分列向导-3之步骤3”中，在“列数据格式”中选择“日期”。还可以根据需要，在其后的下拉列表中选择一种日期格式。本例为默认的“YMD”格式。 3）.单击“完成”按钮，Excel会在原单元格或区域中将数值格式的“19841006”和文本格式的“1984.10.6”转换为日期格式“1984-10-6”。 另外，对于“1984.10.6”文本格式的数据，还可以将“.”替换为“-”，也可以转换为日期格式。 3.将日期格式转换为数字格式 在日期后插入一列取函数=text(a1,"yyyymmddhhmm")yyyy表示年mm表示月dd表示日hh表示时mm表示分a1表示日期位置（第一行第一列），然后向下拖曳填充即可改变其他各行日期 4.Excel文本日期转换为日期格式 什么是序列号? Excel可将日期存储为可用于计算的序列号。默认情况下，1900年1月1日的序列号为1，2008年1月1日的序列号为39,448，这是因为它距1900年1月1日有39,448天。 2、若要将转换公式复制到相邻单元格的区域中，请选择在其中键入公式的单元格，然后拖动填充柄，使之覆盖大小与包含文本日期的单元格区域匹配的空单元格区域。 拖动填充柄之后，应有序列号与包含文本日期的单元格区域相对应的单元格区域。
公历和农历之间如何转换
公历和农历之间如何转换? 很多人都一直在找换阴阳历的公式。我也尝试过。曾读过「高平子」天文前辈所着「学历散论」了解古历的变更和阴阳历的缺陷。才知道由於月球转动的不稳定不规则，确定无公式可寻。这也是古代中国每百年必改历的原因。 阴历最大的问题是在如何置闰。好像不难，因为阴历基本法则如下: * 月朔日即是初一 * 月以中气得名 * 以包含雨水中气月为正月，即是「寅」月 * 月无中气者为闰月，以前月同名 如果，日月转动循还有规则的话，推演一套阴阳历转换的公式并不难。问题在有时一个太阴月比一个太阳月还要长。如此一个太阴月就有可能包括两个中气。此双中气月後的阴历月名就全部乱掉了，直到下一个「假」闰月後才调整过来。 一般人接触到的阴阳历是民用历法，它是政府颁令的以东经120度计算的历法或称中原标准时间或北京时。如果，我们用不同时区、不同经度为子午线来重新计算阴阳历，民用历法的置闰法则出了很大的问题。不同时区的闰月可能落在不同月。换言之，在一百年内，任何两个时区的闰月顺序模式是会不相同的。 高平子前辈书中提到了「历理置闰法」。如果应用历理置闰法到不同时区，则所有不同时区的闰月都落在相同月。如此不同时区、不同经度的阴
阳历置闰之问题就消失了。民用置闰和历理置闰的不同是： * 在民用置闰，如果月朔日和中气同一天，则该阴历月包含那个中气。 * 在历理置闰，如果月朔日和中气同一天，月朔日时间必须在中气时间之前，则该阴历月才包含那个中气。 简言之，民用置闰比较月朔和中气日期；历理置闰比较月朔和中气日期、时、分、秒。由此可知，没有精确的太阳和月亮的时间数字，阴历的闰月可能会排错了。 基於这些理由，我着手寻找天文公式计算精确的太阳和月亮在纬度的时间。当年没有网路，发了大半年於美国南加州各大图书馆及大学，找寻答案。1993年出版了「中美天文万年历」一书。书中精确的天文日月时间只从1900到2010年。因恐2011後时间误差超过一分钟，不够精确，不敢印出。今年2002从网路资讯，确定太阳和月亮时间的精确度後，百忙中重新整理资料，提供给需要阴阳历转换公式的朋友。 整理出的太阳和月亮时间数字是从西元1年到2246年。有历理和中国民用两套历法。数字内容清清楚楚的看出民用历法的敝端。例如，从西元1600年到2246年，民用历法双中气的阴历月有22个，历理历法只有5个。民用历法甚至在2033、2128和2242年中，三个月之间居然跑出两个双中气；换言之，三个月中多出两个「假」闰月。前後12个阴历月中有三个闰月，闰月的去留造成许多学者的讨论和困恼。历理历法在此三年中，却没有发现到双中气阴历月。闰月的去留只要把双中气月後的「假」闰月取消，则历理历法近乎於完美。 由此可知，民用历法问题很大，应该废除。上次阴阳历重大改历在1645
日期格式转换
2011-04-22 15:10 Excel中日期格式转换问题 Excel中日期格式转换问题 1.数字格式转年月日格式 工作表中出生年月日格式格式是如：19870714 19870906 20090902如果想改成1987-7-14或改成1987年7月14日。 1、就用此函数插入一列如B列， B1=(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2)); 其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987-7-14 ； 2、插入一列如B列，B1=(LEFT(A1,4)&"年"&MID(A1,5,2)&"月"&RIGHT(A1,2)&"日"); 其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987年7月14 日。 把这种格式2009.9.2转换成2009-09-02这样的格式：假如原始数据在A 列从A1开始，则在B1输入公式=TEXT(SUBSTITUTE(A1,".","-"),"yyyy-mm-dd")，然后下拉复制公式即可。 2.在Excel中将非日期格式数据转换为日期格式 如果Excel表格中有大量的类似“19841006”、“19841029”非日期格式的数据要转换为日期格式，如“1984-10-6”，可以用分列的方法： 1）.选择需要转换单元格或区域，单击菜单“数据→分列”，弹出“文本分列向导- 3之步骤1”对话框。如果是Excel 2007，则在功能区中选择“数据”选项卡，在“数据工具”组中，单击“分列”按钮。
Excel自定义求农历函数――nongli(公历日期,显示序号)
Option Base 1 Dim rq As Integer '日期 Dim y As Date '农历正月月初一的阳历日期 Dim yts As Variant '农历每月的天数 Dim yy(2) As Integer '农历闰月数、阳历闰年数（闰年为1，不闰年为0） Dim nl(3, 385) As String '阳历日期字符串、农历日期字符串、农历闰月字符串 Function NONGLI(glrq As Date, nlr As Integer) Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As Integer X = Year(glrq) If X < 1900 Or glrq > #1/28/2101# Then NONGLI = "？" Exit Function End If '1、将X年的阴阳历等，通过运行程序2，装入数组 If X < 2021 Then Call Array1(X, n1, glrq) If X > 2020 Then Call Array2(X, n1, glrq) '2、查找阳历日期所在数组的序号rq di2bu: rq = 0 If X = 1899 Then rq = Day(glrq)
Else For i = 1 To n1 If nl(1, i) = glrq Then rq = i: Exit For Next i End If '3、填写"农历日期"(包括节日、纪念日) Dim nongli1$, yr$, yuefen$, yf$, rizi$, rz$ Dim jr1 As String, jr2 As String, jr3 As String nongli1 = nl(2, rq)'农历日期以"2014-2-1"或"2014-闰9-1"的形式表示 yr = Strings.Right(nongli1, Strings.Len(nongli1) - 5) '农历日期以"2-1"或"闰9-1"形式表示yuefen = Strings.Left(yr, Strings.InStrRev(yr, "-") - 1) '农历的月份以"2"或"闰9"形式表示rizi = Strings.Right(yr, Strings.Len(yr) - Strings.InStrRev(yr, "-")) '农历的日子以"2"形式表示Dim yuefenB As Variant, yfB As Variant yuefenB = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, "闰2", "闰3", "闰4", "闰5", "闰6", "闰7", "闰8", "闰9", "闰10", "闰11", "闰12") yfB = Array("正月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "冬月", "腊月", "闰二月", "闰三月", "闰四月", "闰五月", "闰六月", "闰七月", "闰八月", "闰九月", "闰十月", "闰冬月", "闰腊月") For i = 1 To 23'农历的月份以汉字形式表示 If yuefen = yuefenB(i) Then yf = yfB(i): Exit For Next i Dim rzB As Variant
公历和农历转换算法详解
公历和农历转换算法详解 //C51写的公历转农历和星期 #define uchar unsigned char #define uint unsigned int #include
Excel中如何将日期格式进行转换
在EXCEL中如何将日期格式转换 如何将格式转换成1900-01-01的格式？ 如果日期所在单元格在A列，并从A1开始。 1、插入一辅助列B列， 2、在B1输入：=MID(A1,1,4)&-MID(A1,5,2)&-MID(A1,7,2)回车， 3、向下填充该公式。 4、选中B列→复制→粘贴→选择性粘贴→数值→确定 5、删除A列 在EXCEL中如何利用身份证号码提取出生时间 假设身份证号在A1，时间格式为1900-1-1 =IF(LEN(A1)=15,"19"&MID(A1,7,2)&"-"&MID(A1,9,2)&"-"&MID(A1,11,2),MID(A1,7,4)&"-"&MID(A1 ,11,2)&"-"&MID(A1,13,2)) 在EXCEL中如何利用身份证号码提取性别 =IF(LEN(A1)=15,IF(MOD(MID(A1,15,1),2)=1,"男","女") , IF(MOD(MID(A1,17,1),2)=1,"男","女") ) 在EXCEL中如何利用身份证号码计算周岁 假设身份证号在C1，时间格式为1900-1-1，出生时间为X 答案1： =DATEDIF(IF(LEN(A1)=15,"19"&MID(A1,7,2)&"-"&MID(A1,9,2)&"-"&MID(A1,11,2),MID(A1,7,4)&"-" &MID(A1,11,2)&"-"&MID(A1,13,2)),TODAY(),”y”) 简化之：=DATEDIF(X,TODAY(),”y”) 答案2： =TEXT(TODAY()-IF(LEN(C1)=15,"19"&MID(C1,7,2)&"-"&MID(C1,9,2)&"-"&MID(C1,11,2),MID(C1,7,4) &"-"&MID(C1,11,2)&"-"&MID(C1,13,2 )),"yy") 简化之：=TEXT(TODAY()-X,”yy”) 在EXCEL中如何利用身份证号码计算周岁 假设身份证号在C1: =IF(C1="","",IF(IF(LEN(C1)=15,"19"&MID(C1,7,2)&"-"&MID(C1,9,2)&"-"&MID(C1,11,2),MID(C1,7,4) &"-"&MID(C1,11,2)&"-"&MID(C1,13,2))>"2009-12-31","",TEXT(TODAY()-IF(LEN(C1)=15,"19"&MID( C1,7,2)&"-"&MID(C1,9,2)&"-"&MID(C1,11,2),MID(C1,7,4)&"-"&MID(C1,11,2)&"-"&MID(C1,13,2))," yy")))
有关日期提取格式转换和计算计算年龄
电子表格中有关日期的几个变换与计算 从身份证中提取出生日期=date(mid(A1,7,4),mid(A1,11,2),mid(A1,13,2))直接提取出日期。 身份证算年龄 如要算指定日期的年龄,则设A1文本格式的18位身份证号,B1为指定日期,在C1输入公式如下: =YEAR(TODAY())-V ALUE(MID(A1,7,4)) =YEAR(TODAY())-IF(LEN(TRIM(A1))>15,V ALUE(MID(A1,7,4)),V ALUE("1 9"&MID(A6,7,2))) 此公式15位、18位通用 到指定日期年龄 假设A1为身份号，15、18位都可，在B1显示此人年龄（至2009年底计算），公式如下： =2009-LEFT(IF(LEN(A1)=15,19&TEXT(MID(A1,7,6),"00-00-00"),TEXT(MID(A1, 7,8),"0000")),4) 到指定日期年龄 =DA TEDIF(RIGHT(TEXT(MID(A1,7,11)-500,"#-00-00,"),10),指定日期,"Y") =MOD(YEAR(指定日期)-MID(A1,7,LEN(A1)/2-5),190) 身份证号快速输入 方法一、单元格设置---------数字--------自定义------------类型
“输入41062100000000000#”（6位数加11个0加#，这样设置的单元格，只需要输入后12位就行了，前面的会自动添加） 方法二、用公式“=A1&B1做” 从身份证中提取数字串 例如，某人身份证为310123************（18位），输入到"A1"单元格，建议用把单元格改成"文本"，不然会显示为科学计数法。 一、提取数字 方法一、在"B1"单元格输入：=left(A1,14)，出现结果是“31012319010203”，然后在"C1"单元格里输入=right(B1,8)，出现结果是“19010203”，基本工程完成了。 方法二、两个命令合并使用，在"D1"单元格里输入： =right(left(A1,14),8)。 方法三、函数【mid】在"E1"单元格输入公式=mid(A1,7,8)试试，就算出了正确的结果“19010203” 二、转化成日期格式函数【date】 例如，=date(1901,02,03) 输出结果为日期格式的“1901-2-3” 三、也可以这样：按照如下操作提取出年月日：提取年，在"F1"单元格输入：=mid(A1,7,4)，输出结果为“1901”。提取月，在"G1"单元格输入：=mid(A1,11,2)，输出结果为“02”。提取日，在"H1"单元格
公历转农历EXCEL宏讲解
Public Function NongLi(Optional XX_DATE As Date) Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay Dim GongliStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate '??è?μ±?°?μí3ê±?? curTime = XX_DATE 'ìì?é??3? TianGan(0) = "?×" TianGan(1) = "òò" TianGan(2) = "±?" TianGan(3) = "??" TianGan(4) = "?ì" TianGan(5) = "?o" TianGan(6) = "?y" TianGan(7) = "Dá" TianGan(8) = "èé" TianGan(9) = "1?" 'μ??§??3? DiZhi(0) = "×ó" DiZhi(1) = "3ó" DiZhi(2) = "òú" DiZhi(3) = "??" DiZhi(4) = "3?" DiZhi(5) = "?è" DiZhi(6) = "??" DiZhi(7) = "?′" DiZhi(8) = "éê" DiZhi(9) = "ó?" DiZhi(10) = "D?" DiZhi(11) = "o￥" 'ê??à??3? ShuXiang(0) = "êó" ShuXiang(1) = "?￡" ShuXiang(2) = "?￠" ShuXiang(3) = "í?" ShuXiang(4) = "áú" ShuXiang(5) = "é?" ShuXiang(6) = "?í"
Excel中日期格式转换问题
Excel中日期格式转换问题 1.数字格式转年月日格式 工作表中出生年月日格式格式是如：19870714 19870906 20090902如果想改成1987-7-14或改成1987年7月14日。 1、就用此函数插入一列如B列， B1=(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2)); 其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987-7-14 ； 2、插入一列如B列，B1=(LEFT(A1,4)&"年"&MID(A1,5,2)&"月"&RIGHT(A1,2)&"日"); 其它单元格可以用此公式自动填充，然后把此单元格设置成日期1987年7月14 日。 把这种格式2009.9.2转换成2009-09-02这样的格式：假如原始数据在A列从 A1开始，则在B1输入公式=TEXT(SUBSTITUTE(A1,".","-"),"yyyy-mm-dd")，然后下拉复制公式即可。 2.在Excel中将非日期格式数据转换为日期格式 如果Excel表格中有大量的类似“19841006”、“19841029”非日期格式的数据要转换为日期格式，如“1984-10-6”，可以用分列的方法： 1）.选择需要转换单元格或区域，单击菜单“数据→分列”，弹出“文本分列向导- 3之步骤1”对话框。如果是Excel 2007，则在功能区中选择“数据”选项卡，在“数据工具”组中，单击“分列”按钮。 2）.单击两次“下一步”，在“文本分列向导- 3之步骤3”中，在“列数据格式”中选择“日期”。还可以根据需要，在其后的下拉列表中选择一种日期格式。本例为默认的“YMD”格式。 3）.单击“完成”按钮，Excel会在原单元格或区域中将数值格式的“19841006”和文本格式的“1984.10.6”转换为日期格式“1984-10-6”。 另外，对于“1984.10.6”文本格式的数据，还可以将“.”替换为“-”，也可以转换为日期格式。 3.将日期格式转换为数字格式 在日期后插入一列取函数 =text(a1,"yyyymmddhhmm") yyyy表示年mm表示月dd表示日hh表示时mm表示分 a1表示日期位置（第一行第一列），然后向下拖曳填充即可改变其他各行日期 4.Excel文本日期转换为日期格式
Excel提取出生及日期格式转换
Excel提取出生及日期格式转换 年龄正确公式 =IF(LEN(B2)=15,YEAR(NOW())-1900-V ALUE(MID(B2,7,2)), IF(LEN(B2)=18,YEAR(NOW())-V ALUE(MID(B2,7,4)),"身份证错")) 根据身份证号码（15位和18位通用）自动提取性别和出生年月的自编公式，供需要的网友参考：说明：公式中的B2是身份证号 1、根据身份证号码求性别： =IF(LEN(B2)=15,IF(MOD(V ALUE(RIGHT(B2,3)),2)=0,"女","男"),IF(LEN(B2)=18,IF(MOD(V ALUE(MID(B2,15,3)),2)=0,"女","男"),"身份证错")) 2、根据身份证号码求出生年月： =IF(LEN(B2)=15,CONCATENATE("19",MID(B2,7,2),".",MID (B2,9,2)),IF(LEN(B2)=18,CONCATENATE(MID(B2,7,4),".", MID(B2,11,2)),"身份证错")) =MID(AF5,7,8) 3、根据身份证号码求年龄： =IF(LEN(B2)=15,YEAR(NOW())-1900-V ALUE(MID(B2,7,2)), IF(LEN(B2)=18,YEAR(NOW())-V ALUE(MID(B2,7,4)),"身份
证错")) 如何将yyyy-mm-dd转为yyyymm:函数法： =TEXT(A1,"emm") 电子表格YYMM转化YYYY-MM-DD ="20"&LEFT(C14,2)&"-"&RIGHT(C14,2)&"-"&"01" 如何将yyyy-mm-dd转为yyyymmdd =text(A1,"emmdd") 在excel中设A1=196303或者19630302，则 B1=TEXT(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2 ),"YYYY-MM-DD"),回车即可转换成1963-03或者 1963-03-02，，下拉可以批量转换。 excel日期yyyy-mm-dd转换成yyyy.mm.dd 查找-替换为.单击全部替换按钮。或者用公式：=text(a1,"yyyy.mm.dd")
excel二进制表格
竭诚为您提供优质文档/双击可除 excel二进制表格 篇一：excel公历转农历的四种方法 excel公历转农历的四种方法 excel公历转农历方法一：使用text函数 a列是公历日期，我们在b1单元格输入公式： =text(a1,"[$-130000]yyyy年m月"获取当前系统时间curtime=xx_date 天干名称 tiangan(0)="甲" tiangan(1)="乙" tiangan(2)="丙" tiangan(3)="丁" tiangan(4)="戊" tiangan(5)="己" tiangan(6)="庚" tiangan(7)="辛" tiangan(8)="壬" tiangan(9)="癸"
地支名称 dizhi(0)="子" dizhi(1)="丑" dizhi(2)="寅" dizhi(3)="卯" dizhi(4)="辰" dizhi(5)="巳" dizhi(6)="午"dizhi(7)="未"dizhi(8)="申 "dizhi(9)="酉"dizhi(10)="戌"dizhi(11)="亥"属相名称shuxiang(0)="鼠"shuxiang(1)="牛"shuxiang(2)="虎"shuxiang(3)="兔"shuxiang(4)="龙"shuxiang(5)="蛇"shuxiang(6)="马"shuxiang(7)="羊"shuxiang(8)="猴"shuxiang(9)="鸡"shuxiang(10)="狗"shuxiang(11)="猪"农历日期名 dayname(0)="*"dayname(1)="初一"dayname(2)="初二"dayname(3)="初三"dayname(4)="初四"dayname(5)="初五"dayname(6)="初六"dayname(7)="初七"dayname(8)="初八"dayname(9)="初九"dayname(10)="初十"dayname(11)="十一"dayname(12)="十二"dayname(13)="十三 "dayname(14)="十四"dayname(15)="十五"dayname(16)="十六"dayname(17)="十七"dayname(18)="十八"dayname(19)="十九"dayname(20)="二十"dayname(21)="
Excel中 的日期格式转换问题
Excel中日期格式转换问题 工作表中出生年月格式格式是如：19870705 19861106 19881109如果想改成1987-7-5或改成1987年7月7日。1、就用此函数插入一列如B列，B1=(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2))+0 其它单元格可以用此公式自动填充。然后把此单元格设置成日期2001-3-14 ；2、插入一列如B列 B1=(LEFT(A1,4)&"年"&MID(A1,5,2)&"月"&RIGHT(A1,2)&"日")+0 其它单元格可以用此公式自动填充。然后把此单元格设置成日期2001年3月14 日。 把这种格式2009.2.22转换成2009-02这样的格式：假如原始数据在A列从A1开始，则在B1输入公式=TEXT(SUBSTITUTE(A1,".","-"),"yyyy-mm")，然后下拉复制公式即可。 在Excel中将非日期格式数据转换为日期格式 如果Excel表格中有大量的类似“20090510”、“2009.5.10”非日期格式的数据要转换为日期格式，如“2009-5-10”，可以用分列的方法： 1.选择需要转换单元格或区域，单击菜单“数据→分列”，弹出“文本分列向导- 3之步骤1”对话框。如果是Excel 2007，则在功能区中选择“数据”选项卡，在“数据工具”组中，单击“分列”按钮。 2.单击两次“下一步”，在“文本分列向导- 3之步骤3”中，在“列数据格式”中选择“日期”。还可以根据需要，在其后的下拉列表中选择一种日期格式。本例为默认的“YMD”格式。 3.单击“完成”按钮，Excel会在原单元格或区域中将数值格式的“20090510”和文本格式的 “2009.5.10”转换为日期格式“2009-5-10”。 另外，对于“2009.5.10”文本格式的数据，还可以将“.”替换为“-”，也可以转换为日期格式。 在EXCEL中如何利用身份证号码计算出生年月年龄及性别 1、身份证号码简介（18位）： 1～6位为地区代码；7～10位为出生年份；11～12位为出生月份；13～14位为出生日期；15～17位为顺序号，并能够判断性别，奇数为男，偶数为男；第18位为校验码。 2、确定“出生日期”： 18位身份证号码中的生日是从第7位开始至第14位结束。提取出来后为了计算“年龄”应该将“年”“月”“日”数据中添加一个“/”或“-”分隔符。 ①正确输入了身份证号码。(假设在D2单元格中) ②将光标定位在“出生日期”单元格(E2)中，然后在单元格中输入函数公式 “=MID(D2,7,4)&"-"&MID(D2,11,2)&"-"&MID(D2,13,2)”即可计算出“出生日期”。
excel公历转农历的四种方法
excel公历转农历的四种方法 excel公历转农历方法一：使用text函数 A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,"[$-130000]yyyy年m月"&I F(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成公历转农历。 excel公历转农历方法二：使用text+MID函数 A列仍然是公历，B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-13 0000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4, 12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月d日"即可。 excel公历转农历方法三：使用text+MID+ CHOOSE+ YEAR函数 A1为公历，B1输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲", "乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m月"&IF(--TEXT(A1, "[$-130000]d")<11,"初","")&TEXT(A1,"[dbnum1][$-130000]d")) excel公历转农历方法四：使用自定义函数 上面介绍的excel公历转农历都是使用excel内置函数完成的，有一个弊端就是公式太长，如果使用自定义函数，在公式栏就可以简化输入。 如下图所示，我们在B2输入公式：=nongli(A2)，即可。C列农历简称中C2公式是：=RIGHT(B2,LEN(B2)-8)。
阴历阳历转换计算公式
1、阳历日期推算阴历日期的方法： 前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月 为十六日），以月晦为二十九日（大月为三十日）。 如要知道1984年6月8日是阴历几日？可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4Q＋R 则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R<4） 例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1 故：Q＝4，R＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+31+7)-29.5n =204.2- 29.5n 然后用29.5去除204.2得商数 6......27.2，6即是n值，余数27即是阴历二十七日2．公历换算为农历 二十四节气在黄道上的位置是固定的，但各年有平年和闰年之分，就使得回归年天数与 实际天数不等，每年在日历上可差一天。这样可以将阴历经过任意整回归年在现在的日历上 查到阳历（阳历一年相当阴历的月数为365．2422/29．530588＝12．36827个月）。例如，可先在1995年的日历上查得与（该年）阴历对应的阳历日期，这样就找到了临时落脚点， 也就是找到了阴阳互换的关键。例如，可先以阴历四月初一（日）为引数，在1995年日历上查到对应的阳历为4月30日。由于已经计算出经过的月数，将经过的月数的尾数（小数）化为日，加在4月30日上，就得到经过（1995－1070）整年数的阳历日期，也就是起始阴 历日期对应的阳历日期，即得到了待查的日期为4月30日加上0．64957×29．530588得到（1070年）5月19．1821840日。这样就得到了所给例子的阴阳历日期换算结果……”。 0．64957月的由来， （1995－1070）×12．36827＝11440．64957月 已知依泽公生于梁龙德二年（922）六月二十一日，依下表提供的2099年各月初一日的公历月日数，可以算出龙德二年六月二十一日的公历月日数 公元2099年农历各月初一日的公历月日 （2099－922）×12．36827＝1455．45379月 余数为0．45379月×29．530588日＝13．4O日 因2099年五月初一日（包括该年闯二月）在公历6月19日，加上计算所得的13日为龙德二年六月初一日的公历月日，即该年7月2日，则该年农历六月二十一日为该年7月22日。 3．计算结果的订正 实际上上列公历换算为农历时常有较大的误差，如熙宁三年四月初一日为公历1070年5月13日，而不是5月19日。通过中国历法所用的于支记日法求算所用两历的干支，对所 求结果加以订正。 如，马依泽公生于回历310年3月20日，自回历历元起算共历日数为： 自回历元旦至其3月20日，共历79日。 自回历元年元旦至309年元旦，共历113个闰年196个平年。又回历历元在公历622年7月16日，已知该日的干支序数为50，癸丑日，减1（因自甲子起算），余49应加入下列算式中， （309 ×354＋113＋79＋49）÷60＝1827．116667
如何在excel中实现阳历转化阴历
步骤一，在Excel工作表界面下按
'地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" '农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六"
EXCEL日期与时间函数大全
1.DATE 用途：返回代表特定日期的序列号。 语法：DATE(year，month，day) 参数：year为一到四位，根据使用的日期系统解释该参数。默认情况下，Excel for Windows使用1900日期系统，而Excel for Macintosh使用1904日期系统。Month代表每年中月份的数字。如果所输入的月份大于12，将从指定年份的一月份执行加法运算。Day 代表在该月份中第几天的数字。如果day 大于该月份的最大天数时，将从指定月份的第一天开始往上累加。 注意:Excel按顺序的序列号保存日期，这样就可以对其进行计算。如果工作簿使用的是1900日期系统，则Excel会将1900年1月1日保存为序列号1。同理，会将1998年1月1日保存为序列号35796，因为该日期距离1900年1月1日为35795天。 实例：如果采用1900日期系统(Excel默认)，则公式“=DATE(2001，1，1)”返回36892。 2.DATEVaLUE 用途：返回date_text所表示的日期的序列号。该函数的主要用途是将文字表示的日期转换成一个序列号。 语法：DATEVaLUE(date_text) 参数：Date_text是用Excel日期格式表示日期的文本。在使用1900日期系统中，date_text必须是1900年1月1日到9999年12月31日之间的一个日期;而在1904日期系统中，date_text必须是1904年1月1日到9999年12月31日之间的一个日期。如果date_text超出上述范围，则函数DATEVaLUE返回错误值#value!。 如果省略参数date_text中的年代，则函数DATEVaLUE使用电脑系统内部时钟的当前年代，且date_text中的时间信息将被忽略。 实例：公式“=DATEVaLUE("2001/3/5")”返回36955，DATEVaLUE("2-26")返回36948。 3.DAY 用途：返回用序列号(整数1到31)表示的某日期的天数，用整数1 到31 表示。 语法：DAY(serial_number) 参数：Serial_number是要查找的天数日期，它有多种输入方式:带引号的文本串(如"1998/01/30")、序列号(如1900日期系统的35825表示的1998年1月30日)，以及其他公式或函数的结果(如DATEVaLUE("1998/1/30"))。 实例：公式“=DAY("2001/1/27")”返回27，=DAY(35825)返回30， =DAY(DATEVaLUE("2001/1/25"))返回25。 4.DAYS360 用途：按照一年360天的算法(每个月30天，一年共计12 个月)，返回两日期间相差的天数。 语法：DAYS360(start_date，end_date，method)
- 公历与农历的转换
- 生日提醒(农历转公历,EXCEL VBA 实现)
- 公历转农历EXCEL宏讲解
- 公历转农历模块
- 万能日历 Excel版 (含农历)
- 公历日期与农历日期的相互转换程序
- 公历转农历
- 公历和农历之间如何转换
- excel公历转农历的四种方法精编版
- 公历转农历方法
- 通用日历_Excel公式版_(含农历)
- 万年日历-EXCEL版(含农历)
- Excel自定义求农历函数――nongli(公历日期,显示序号)
- excel公历转农历的四种方法
- 在Excel中自定义公历转换农历函数2
- Excel公历转农历阳历转阴历
- 农历转公历
- 公历转农历模块
- excel公历转农历的四种方法
- EXCEL公历日期转农历日期方法