农历生辰表格怎么做的,农历生辰转换

会员的生日有阴历的有阳历的EXCEL表格怎么做

请先将生日统一调成阳历(自己查吧)假设生日在A列B1输入公式=IF(DATE(YEAR(A2)+1,MONTH(A2),DAY(A2))=TODAY(),"今天生日",IF(DATE(YEAR(A2)+1,MONTH(A2),DAY(A2))<TODAY(),"还有"&TODAY()-DATE(YEAR(A2)+1,MONTH(A2),DAY(A2))&"天过生日",""))补充回答:假设生日输入在A1把上面公式复制,到B1中粘贴,就行了,你试试如果A2以下都有会员的生日,将B1公式向下复制就行了(点B1,光标移到其右下的小黑点上,光标变成实心十字形时,按鼠标左键向下拖)

怎么算农历生日

农历生日到底要怎么算？ 呵呵、你好，过生我认为正确的是农历，因为从出生那一天你生日日期定在农历，以后每一年的农历都是那一天，但阳历的话就不一定，比如有时候会闰月，且每年的阳历不一定是“同一天”；但我觉得人生活着就是快乐幸福，我记得我高一的时候我同学一起帮我过了一个“阳历的生日”所以也别特在意那一天，星座是阳历的和农历都可以，但一般阳历的较准确点，经查询你处女座。 怎么算自己的农历生日？ 打开手机或电脑的日历功能，翻阅到1995年2月5日这天，查看这天的农历日期即可。我帮你查鼎了，是乙亥（猪）年正月初六，望采纳，谢谢！ 生日农历新历怎么算啊？ 这个要看你们那边的风俗习惯了。一般城市里的生日按你当年出生的阳历日期算，也就是说你的生日是8月9日。而一般农村会按阴历算，你功生日便成了每年的农历7月14日。这两个日期，一般选一个过生日，当然，也有极品的两个生日都过。最后，提前祝你生日快乐！ 农历生日如何算 我一般是这样算的,人出生的那一天,阴历和阳历是同一 天,比如你的生日,1985年7月30日（阳历)和1985年6月13日（阴历）是同一天,但是,每年阴历算法比阳历要少几天,随着时间的推移,阴历和阳历就不在同一天了. 你朋友说的是对的,要按阴历算,阴历1985年6月13日那天也就是今年2008阳历年7月15日.因为你要过阴历的生日只要记住阴历1985年6月13日,然后看日历就看那上边显示的阴历的日子也就是小字,是同一天就是了. 你要是过阳历生日,那么也是记着7月30日,然后直接找阳历7月30就行了. 道理就是阴历对应阴历,阳历对应阳历. 所以说一般人都有两个生日,看你喜欢过哪天了,这个一般是根据地区的不同,风俗习惯的不同而变的. 农历生日怎么算 农历生日是根据你出生时的公历来算 1993年8月14日农历为癸酉年（鸡年）六月廿七 阴历、阳历生日是怎么算的 如果你又要过阴历生日又要过阳历生日，2011年阴历7月28日对上的阳历是8月27日，然后你再过郸月20号的生日。也就是说，你今年阳历8月27和9月20过生日。能理解吗？ 怎么算农历生日是多少岁 赶山追月，你怎么算的？！84年农历十二月到今年农历十二月，周岁这么算的？亏你说得出来！周岁显然是按照阳历（公历）算的，84年的农历十二月在当时是阳历（公历）1月份，到今年早就过了29周岁生日了，你现在应该是虚岁30岁，周岁29周岁！不信？... 如何算农历生日？ 你出生那天农历日子 就是你出生的日子！ 农历怎么算啊，我的生日在几号？ 你的农历生日是八月十三 就是人们常说的阴历 你今年的生日已经过去了 你今年的生日还挺巧的就是今年的10月1日 我刚刚用万年历给你查完 很有幸知道你的生日 说的有点晚了 生日快乐哦 呵呵 好！现在我就教你如何去找自己的生日 第一步 拿出你的手机 找到万年历 我现在回答你的问题是在2009年的10月31号 那么就在你找到这个日期的时候 你看你的屏幕上肯定有个九月14号显示 这个日期就是农历了 那么好 现在把手机调到1991年的9月20号 在手机的万年历上一定还有一个别的日期 很小 你观察下 一定会有的 屏幕上显示的是八月十三号 这个就是1991年9月20号的农历 你是在1991年9月20号出生的 对应的农历是八月十三号 也就是说你的农历的生日是八月十三号 然后我们找你2009年农历八月十三号的生日 不用看阳历的日期 只看小数字的日期 调到八月十三号 对应的阳历就是10月1日了 用日历牌也是一样的道理 你仔细观察一下 就会发现了 希望对你有帮助 楼上的弄错了哦 不是十月十一日 是 十月一日

如何在excel表中将阴历生日批量转换成阳历?

1.比如今天是2010年9月2日，用以下公式就可以得出农历七月二十四：2.虽然在遇到闰月时，显示结果有点差强人意，如下图中，2010年2月9日的农历应是十二月二十六，但因为那年有个闰五月，就无辜多出来一个月了。不过总比编代码要快捷多了吧，而且闰月也不是天天有。3.假如把公式改成：=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月")&TEXT(A2,IF(--TEXT(A2,"[$-130000]d")=10,"初十",IF(--TEXT(A2,"[$-130000]d")>10,"[$-130000][DBNum1]d","初[$-130000][DBNum1]d")))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。那就更像农历的表示法了。

农历生日如何算

我一般是这样算的,人出生的那一天,阴历和阳历是同一 天,比如你的生日,1985年7月30日（阳历)和1985年6月13日（阴历）是同一天,但是,每年阴历算法比阳历要少几天,随着时间的推移,阴历和阳历就不在同一天了. 你朋友说的是对的,要按阴历算,阴历1985年6月13日那天也就是今年2008阳历年7月15日.因为你要过阴历的生日只要记住阴历1985年6月13日,然后看日历就看那上边显示的阴历的日子也就是小字,是同一天就是了. 你要是过阳历生日,那么也是记着7月30日,然后直接找阳历7月30就行了. 道理就是阴历对应阴历,阳历对应阳历. 所以说一般人都有两个生日,看你喜欢过哪天了,这个一般是根据地区的不同,风俗习惯的不同而变的.

生辰八字天干地支查询表,农历生辰八字查询表

提起生辰八字天干地支查询表，大家都知道，有人问农历生辰八字查询表，另外，还有人想问生辰八字对应的天干地支，你知道这是怎么回事？其实怎么看自己的八字天干地支，下面就一起来看看农历生辰八字查询表，希望能够帮助到大家！

如何在EXCEL中实现生日阳历到阴历的批量转换。

Option ExplicitDim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDay, curWeekdayDim GongliStr, WeekdayStr, NongliStr, NongliDayStrDim i, m, n, k, isEnd, bit, TheDateDim year, month, day, grid, grid_dateSub datetest()'这是转换样例 Debug.Print calendar("2011-8-15")End SubFunction calendar(grid)'转换函数grid_date = gridyear = Mid(grid_date, 1, 4)month = Mid(grid_date, 6, 1)day = Mid(grid_date, 8, 2)'星期名WeekName(0) = " * "WeekName(1) = "星期日"WeekName(2) = "星期一"WeekName(3) = "星期二"WeekName(4) = "星期三"WeekName(5) = "星期四"WeekName(6) = "星期五"WeekName(7) = "星期六"'天干名称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) = 0MonthAdd(1) = 31MonthAdd(2) = 59MonthAdd(3) = 90MonthAdd(4) = 120MonthAdd(5) = 151MonthAdd(6) = 181MonthAdd(7) = 212MonthAdd(8) = 243MonthAdd(9) = 273MonthAdd(10) = 304MonthAdd(11) = 334'农历数据NongliData(0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 694NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 1386NongliData(23) = 267611NongliData(24) = 605NongliData(25) = 2349NongliData(26) = 137515NongliData(27) = 2709NongliData(28) = 464533NongliData(29) = 1738NongliData(30) = 2901NongliData(31) = 330421NongliData(32) = 1242NongliData(33) = 2651NongliData(34) = 199255NongliData(35) = 1323NongliData(36) = 529706NongliData(37) = 3733NongliData(38) = 1706NongliData(39) = 398762NongliData(40) = 2741NongliData(41) = 1206NongliData(42) = 267438NongliData(43) = 2647NongliData(44) = 1318NongliData(45) = 204070NongliData(46) = 3477NongliData(47) = 461653NongliData(48) = 1386NongliData(49) = 2413NongliData(50) = 330077NongliData(51) = 1197NongliData(52) = 2637NongliData(53) = 268877NongliData(54) = 3365NongliData(55) = 531109NongliData(56) = 2900NongliData(57) = 2922NongliData(58) = 398042NongliData(59) = 2395NongliData(60) = 1179NongliData(61) = 267415NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031NongliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 133973NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) = 1323NongliData(98) = 2707NongliData(99) = 265877'生成当前公历年、月、日 ==> GongliStrcurYear = yearcurMonth = monthcurDay = dayGongliStr = curYear & "年"If (curMonth < 10) Then GongliStr = GongliStr & "0" & curMonth & "月"Else GongliStr = GongliStr & curMonth & "月"End IfIf (curDay < 10) Then GongliStr = GongliStr & "0" & curDay & "日"Else GongliStr = GongliStr & curDay & "日"End If'生成当前公历星期 ==> WeekdayStrcurWeekday = Weekday(curTime)WeekdayStr = WeekName(curWeekday)'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38If ((curYear Mod 4) = 0 And curMonth > 2) Then TheDate = TheDate + 1End If'计算农历天干、地支、月、日isEnd = 0m = 0Do 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 + 1LoopcurYear = 1921 + mcurMonth = k - n + 1curDay = TheDateIf (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 IfEnd If'生成农历天干、地支、属相 ==> NongliStrNongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ""'生成农历月、日 ==> NongliDayStrIf (curMonth < 1) Then NongliDayStr = "闰" & MonName(-1 * curMonth)Else NongliDayStr = MonName(curMonth)End IfNongliDayStr = NongliDayStr & "月"NongliDayStr = NongliDayStr & DayName(curDay)calendar = NongliStr & NongliDayStr & ")"End Function