EXCEL VBA 实例：将日期转换成农历
公历和农历之间如何转换
公历和农历之间如何转换? 很多人都一直在找换阴阳历的公式。我也尝试过。曾读过「高平子」天文前辈所着「学历散论」了解古历的变更和阴阳历的缺陷。才知道由於月球转动的不稳定不规则，确定无公式可寻。这也是古代中国每百年必改历的原因。 阴历最大的问题是在如何置闰。好像不难，因为阴历基本法则如下: * 月朔日即是初一 * 月以中气得名 * 以包含雨水中气月为正月，即是「寅」月 * 月无中气者为闰月，以前月同名 如果，日月转动循还有规则的话，推演一套阴阳历转换的公式并不难。问题在有时一个太阴月比一个太阳月还要长。如此一个太阴月就有可能包括两个中气。此双中气月後的阴历月名就全部乱掉了，直到下一个「假」闰月後才调整过来。 一般人接触到的阴阳历是民用历法，它是政府颁令的以东经120度计算的历法或称中原标准时间或北京时。如果，我们用不同时区、不同经度为子午线来重新计算阴阳历，民用历法的置闰法则出了很大的问题。不同时区的闰月可能落在不同月。换言之，在一百年内，任何两个时区的闰月顺序模式是会不相同的。 高平子前辈书中提到了「历理置闰法」。如果应用历理置闰法到不同时区，则所有不同时区的闰月都落在相同月。如此不同时区、不同经度的阴
阳历置闰之问题就消失了。民用置闰和历理置闰的不同是： * 在民用置闰，如果月朔日和中气同一天，则该阴历月包含那个中气。 * 在历理置闰，如果月朔日和中气同一天，月朔日时间必须在中气时间之前，则该阴历月才包含那个中气。 简言之，民用置闰比较月朔和中气日期；历理置闰比较月朔和中气日期、时、分、秒。由此可知，没有精确的太阳和月亮的时间数字，阴历的闰月可能会排错了。 基於这些理由，我着手寻找天文公式计算精确的太阳和月亮在纬度的时间。当年没有网路，发了大半年於美国南加州各大图书馆及大学，找寻答案。1993年出版了「中美天文万年历」一书。书中精确的天文日月时间只从1900到2010年。因恐2011後时间误差超过一分钟，不够精确，不敢印出。今年2002从网路资讯，确定太阳和月亮时间的精确度後，百忙中重新整理资料，提供给需要阴阳历转换公式的朋友。 整理出的太阳和月亮时间数字是从西元1年到2246年。有历理和中国民用两套历法。数字内容清清楚楚的看出民用历法的敝端。例如，从西元1600年到2246年，民用历法双中气的阴历月有22个，历理历法只有5个。民用历法甚至在2033、2128和2242年中，三个月之间居然跑出两个双中气；换言之，三个月中多出两个「假」闰月。前後12个阴历月中有三个闰月，闰月的去留造成许多学者的讨论和困恼。历理历法在此三年中，却没有发现到双中气阴历月。闰月的去留只要把双中气月後的「假」闰月取消，则历理历法近乎於完美。 由此可知，民用历法问题很大，应该废除。上次阴阳历重大改历在1645
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、若要将转换公式复制到相邻单元格的区域中，请选择在其中键入公式的单元格，然后拖动填充柄，使之覆盖大小与包含文本日期的单元格区域匹配的空单元格区域。 拖动填充柄之后，应有序列号与包含文本日期的单元格区域相对应的单元格区域。
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
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")))
公历转农历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二进制表格 篇一：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)。
如何在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公历转农历的四种方法
excel公历转农历的四种方法 [日期：2012-02-08] 来源：IT部落窝作者：IT部落窝阅读：8875次[字体：大中小] 内容提要：文章介绍excel公历转农历的四种方法，分别通过excel内置函数和自定义函数完成公历转农历。 尽管通过很多渠道可以轻松获取公历转农历，但是对excel迷们还是很期待用excel来实现公历转农历。 设想一下，IT部落窝会员们的信息都是以阳历注册的，我们也可以使用下面即将介绍的方法实现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中如何将日期格式转换 如何将 19000101格式转换成 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")))
excel表格里日期怎么输入20XX-10-15
竭诚为您提供优质文档/双击可除excel表格里日期怎么输入20XX-10-15 篇一：如何在excel中设置日期时间格式 excel中日期时间格式转换问题 1.20xx/05/15如何转换为20xx0515这种数字格式。 2.23:03:00如何转换为230300这种数字格式。 谢谢。 20xx/05/15如何转换为20xx0515这种数字格式 先选中该列或该单元格，鼠标右击，“设置单元格格式”，“数字”，“自定义”，在类型处输入 yyyymmdd 确定 23:03:00如何转换为230300这种数字格式。 先选中该列或该单元格，鼠标右击，“设置单元格格式”，“数字”，“自定义”，在类型处输入 hhmmss 确定 在excel列中设置好了日期的格式yyyy-m，为何输入的是20xx9，却变成1956-10-而且这列中的每行都是这样？
1,你输入的20xx9本身不是日期格式，你应该输入 20xx/09/01那么，显示为：20xx-92，你设置为特殊格式0000-00，你输入时输入：20xx09将会显示为：20xx-09（月份考虑2位） 如何在excel中设置日期格式 比如：一列的数据是20xx.04.29，令一列是20xx.05.29，我想求两个日期的天数，但在设置日期格式为20xx-4-29时没有反应，是不是这种格式的时间不能设置成日期的格式啊？ 20xx-4-9 20xx-5-9 然后选择设置单元格格式-数字-日期-示例里面选择你 需要显示日期的格式如何设置excel中的日期格式 右键---设置单元格式---数字---自定义---类型中将“yyyy-m-d”修改为“yyyymmdd”,确定。 如何在excel表格中的某一单元格设置日期格式.如果 输入的不是日期格式就会出错 选中你要设的范围后, 按上述步骤操作即可, 当你在这输入一个超出的日期或其他类型的值就会有 以下提示 选中该项列，点“数据”——“有效性”—— 日期根据自己的需要更改，——“确定”。输入数据后，
公历转农历方法
阳历日期推算阴历日期的方法：前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推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即是阴历二十七日。 蔡勒（Zeller）公式：是一个计算星期的公式。 随便给一个日期，就能用这个公式推算出是星期几。 蔡勒公式如下： W = [ C/4 ] - 2C + y + [ y/4 ] + [ 13 * (M + 1) / 5] + d -1 公式中的符号含义如下： W: 星期；w对7取模得：0-星期日，1-星期一，2-星期二，3-星期三，4-星期四，5-星期五，6-星期六 C: 世纪-1（前两位数） y: 年（后两位数） m: 月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算） d: 日 [ ]代表取整，即只要整数部分。 下面以中华人民共和国成立100周年纪念日那天（2049年10月1日）来计算是星期几，过程如下： w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1 =49+[49/4]+[20/4]-2×20+[26×(10+1)/10]+1-1 =49+[12.25]+5-40+[28.6] =49+12+5-40+28 =54 (除以7余5) 即2049年10月1日（100周年国庆）是星期五。 再比如计算2006年4月4日，过程如下： w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1 =6+[6/4]+[20/4]-2*20+[26*(4+1)/10]+4-1 =-12 (除以7余2，注意对负数的取模运算!) 不过，以上的公式都只适合于1582年（我国明朝万历十年）10月15日之后的情形。罗
Excel中日期格式转换问题(整理大全)
Excel中日期格式转换问题 一、工作表中出生年月格式是19870705 格式 （一）要想改成1987-7-5格式。 1、首先把此单元格设置成日期2001-3-14 格式； 2、插入一列B，用函数： B1=(LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2))，其它单元格可以用此公式自动填充。 （二）要想改成1987年7月7日格式。 1、然后把此单元格设置成日期2001年3月14 日格式； 2、插入一列B列，用函数： B1=(LEFT(A1,4)&"年"&MID(A1,5,2)&"月"&RIGHT(A1,2)&"日")，其它单元格可以用此公式自动填充。 二、工作表中出生年月格式格式是2009.2.22 格式 （一）要想转换成2009-02-22格式 1、首先把此单元格设置成日期2001-3-14 格式； 2、假如原始数据在A列从A1开始，则在B1输入公式： =TEXT(SUBSTITUTE(A1,".","-"),"yyyy-mm-dd")，其它单元格可以用此公式自动填充。 还可以采取整列用“-”替换“.”的方法实现转换。 （二）要想转换成20090222格式 1、首先把此单元格设置成常规和数值格式； 2、假如原始数据在A列从A1开始，则在B1输入公式： =TEXT(SUBSTITUTE(A1,".","-"),"yyyymmdd")，其它单元格可以用此公 式自动填充。 三、转换数据量较大的批量转换工具----分列 如果Excel表格中有大量的类似“20090510”、“2009.5.10”非日期格式的数据要转换为日期格式，如“2009-5-10”，可以用分列的方法：
公历转农历(a版本)
公历转农历(A版本) Tags：版本wCurMonth wCurYear if农历nTheDate nBit const公历转农历(C 版本) PHP开发环境的选择、建立及使用[8]编写自定义任务，轻松扩展Ant(2)代联接的自定义右键菜单面试中如何体现身价希特勒生日（4月20日）突破生命中那条线怎么用ado打开带密码的access数据库算法复杂度攻击激烈讨论在Visual https://www.wendangku.net/doc/ef5156098.html,中使用自定义插公历转农历(C版本)版本wCurMonth wCurYear if农历nTheDate nBit const 前段时间做软件写了个公历转农历的函数,目前公开给大家参考,有兴趣的朋友可以在此基础上进一步完善其功能 /*------------农历转换函数-----------*/ char *GetDayOf(PSYSTEMTIME pSt) { /*天干名称*/ const char *cTianGan[] = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}; /*地支名称*/ const char *cDiZhi[] = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}; /*属相名称*/ const char *cShuXiang[] = {"鼠","牛","虎","兔","龙","蛇", "马","羊","猴","鸡","狗","猪"}; /*农历日期名*/ const char *cDayName[] = {"*","初一","初二","初三","初四","初五", "初六","初七","初八","初九","初十",
Excel公历转农历阳历转阴历
参看一： 可以这样试一下：EXCEL2007中可以直接做到，例如 TEXT(日期,"[$-130000]e-m-d")，可返回日期的阿拉伯数字的农历年月日， 中文农历转换公式如下： B2单元格 =MID("庚辛壬癸甲乙丙丁戊己",MOD(TEXT(A2,"[$-130000]e"),10)+1,1)&MID("申酉戌亥子丑寅卯辰巳午未",MOD(TEXT(A2,"[$-130000]e"),12)+1,1)&TEXT(A2,"[dbnum1][$-130000]年M月 "&IF(-TEXT(A2,"[$-130000]d")<-10,,"初")&"D日") 此公式仅EXCEL2007以使用，EXCEL2003及以下不能正常使用 上面那个公式好像有问题，可以试一下这个： 参看二： 日期在A2, 这个公式在B2 =CHOOSE(MOD(YEAR(LEFT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),4)&"-"&MID(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),6,2)&"-"&RIGHT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),2))-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己 ")&CHOOSE(MOD(YEAR(LEFT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),4)&"-"&MID(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),6,2)&"-"&RIGHT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),2))-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥 ")&TEXT(A2,"[dbnum1][$-130000]年m月"&IF(--TEXT(A2,"[$-130000]d")<11,"初 ","")&TEXT(A2,"[dbnum1][$-130000]d日")) =CHOOSE(MOD(YEAR(LEFT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),4) &"-"&MID(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),6,2) &"-"&RIGHT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),2))-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己") &CHOOSE(MOD(YEAR(LEFT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),4)&"-" &MID(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),6,2) &"-" &RIGHT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),2))-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")
- Excel中 的日期格式转换问题
- excel中将文本日期转换为日期格式
- excel表格里日期怎么输入20XX-10-15
- EXCEL中日期格式转换
- Excel中日期格式转换问题(简单实用)
- 把excel日期格式转换成文本日期格式
- excel日期格式转换PPT参考幻灯片
- EXCEL日期与时间函数大全
- Excel中日期格式转换问题(整理大全)
- Excel表格中日期格式转换技巧
- Excel日期格式转换
- Excel中日期格式转换问题
- 13-将excel的单元格日期格式转换成文本格式的简单方法
- Excel中如何将日期格式进行转换
- excel日期格式转换
- Excel2020中日期函数加减的计算方法
- Excel中日期格式转换问题
- Excel表格日期格式转换教程
- 如何把excel日期格式转换成文本日期格式
- excel表格日期格式设置