农历阴历转换器 农历阴历转换器在线查询

一篇好的文章需要好好的打磨，你现在浏览的文章是一篇关于农历阴历转换器 农历阴历转换器在线查询的文章，本文对文章农历阴历转换器 农历阴历转换器在线查询好好的分析和解答，希望你能喜欢，只有你喜欢的内容存在，只有你来光临，我们才能继续前行。

新历和农历的转换

比如说，想要知道1993年3月14日是农历的几月几日，就可以利用公式来计算，得出公历农历转换的结果：

设：公元年数-1977（或者1901）＝4Q＋R。

则：阴历日期＝14Q＋10.6（R＋1）＋年内日期则戚序数-29.5N（注意：Q、R、N均为自然数，且R＜4）。

因此，由此得出：1993年3月14日的阴历日期是：

1993-1977＝16＝4×4＋0。

故：Q＝4，R＝0，则：可以得出公历农历转换的结果，3月14日的阴历日期就是：

14×4＋10.6（0＋1）＋（31＋28＋13）-29.5N。

56＋10.6＋72-29.5N。

N＝4.，因此3月14日的阴历日期就是阴历二月廿二。

阴历阳历转换区分

阳历也就是公历，它是国际通用的。阳历以地球绕太阳转一圈的时间定做一年，共365天5小时48分46秒。平年只计365天这个整数，不计尾数；一年分做12个月，大月31天，小月30天，二月只有28天。

四年的尾数积累起来共1天光景，加在第四年的二孙派陵月里，这一年叫做闰年。所以闰年的二月有29天。阴历以月亮圆缺一次的时间定做一个月，共29天半。为了算起来方便，大月定做30天，小月29天，一年12个月中，大小月大体上交替排列。阴历一年只有354天左右，也没有平年闰年的差别。

阴历不考虑地球绕太阳的运行，因此使得四季的变化在阴历上就没有固定的时间，它不能反映季节，这是一个很大的缺点。为了克服这个缺点，后来人们定了一个折衷的历，就是所谓阴阳合历。现在我国还在使用的夏历（也有人叫它农历或阴历），就是这种阴阳合历。

它跟阴历一样，也以月亮圆缺一次的时间定做一个月，也是大月30天，小月29天，可是它又用加闰月的办法，使得平均每年的天数跟阳历全年的天数相接近，来调整四季。夏历约每过二、三年多一个闰月。

“阴历”又名“太阴历”，系以月球绕行地球一周为一月，再配合地球绕日一周之时数为一年，实际上等于阴阳合历，我国在民国元年前采用此历，为与现行之历相对称羡辩，故名之曰“旧历”。一般人以为阴历适合于农家，而名之日“农历”。

农历公历生日转换器?

农历公历生日转换器是一种可以将农历日期转换为公历日期的工具，也可以将公历日期转换为农历日期。这种工具非常方便，兄羡特别是当你想要标注一个重要的传统节日或者大家都能够理解的生日，而不必担心因为使用了不同的历法而引发误会。此外，还有搭塌很多地方可以找到这种工具，包括各大应用商店、社交媒体平台、在线差异化平台羡枝拍以及相应的官方网站上都能找到相应的已安装好的版本。

阴历和阳历生日转换器,阳历生日转换阴历生日

提起阴历和阳历生日转换器，大家都知道，有人问必须历转换成阳历,找这么一量转换的工具，另外，还有人想问阴历与阳历的生日转换，你知道这是怎么回事？其实农历新历转换器，下面就一起来看看阳历生日转换阴历生日，希望能够帮助到大家！

阴历和阳历生日转换器

阳历生日是年7月9日星期日，转成阴历是年六月十二，生肖属猪，距离今日已经过去天。

阴历甲午()年六月十二，距离今日还宏厅皮有天。（阳历是年7月8日星期二）查生日阴历阳历对照表。

阳历生日转换阴历生日？如何查询自己的阴历生日。

生日 如何农历转换公历？

出生是年6月23日出生日期查询农历生日。

如果这时间您给的是阳历，那么阴历伏则你就是5月23日是生日。以后无论那一年的阴历5月23日都是你的生日。

有了阴历生日，变换的就是阳历得日子。每一年的日历牌您都可以查出对应的历日子。

以92年6月23日为阴历日子计算，年您的阳历生日是7月25日。以此类推。祝开心，生日快乐！

阴历和阳历生日转换器：必须历转换成阳历,找这么一量转换的工具

单独查询的话，万年历就行。万年历农历公历转换。

找个阳历日期转换为阴历日期程序，加一个循环，我一段程序就行了

找不到高手？让文员查他几个小时就行了

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

OptionExplicit

DimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)

DimcurTime,curYear,curMonth,curDay,curWeekday阴历和公历的转换器。

DimGongliStr,WeekdayStr,NongliStr,NongliDayStr万年历大全。

Dimi,m,n,k,isEnd,bit,TheDate

Dimyear,month,day,grid,grid_date

Subdatetest()’这是转换样例农历生日计算器。

Debug.Printcalendar(“-8-15”)

EndSub生日查询系统。

Functioncalendar(grid)’转换函数1800～2100年公历农历对照表。

grid_date=grid星座查询农历转换阳历。

year=Mid(grid_date,1,4)阴历四月三十是阳历几月几号。

month=Mid(grid_date,6,1)阳历6月26生日农历是几号。

day=Mid(grid_date,8,2)今天是农历几月几日几号。

‘星期名

WeekName(0)=””

WeekName(1)=”星期日”公历如何换算成农历。

WeekName(2)=”星期一”

WeekName(3)=”星期二”农历3月20生日阳历是多少。

WeekName(4)=”星期三”

WeekName(5)=”星期四”时辰阳历公历不分吗。

WeekName(6)=”星期五”

WeekName(7)=”星期六”

‘天干名称

TianGan(0)=”甲”有没有1900以前的万年历。

TianGan(1)=”乙”

TianGan(2)=”丙”

TianGan(3)=”丁”

TianGan(4)=”戊”

TianGan(5)=”己”生日日期计算器。

TianGan(6)=”庚”阴历阳历公式。

TianGan(7)=”辛”

TianGan(8)=”壬”

TianGan(9)=”癸”农历和新历生日怎么算。

‘地支名称蔽差阳历1971年10月28日。

DiZhi(0)=”子”

DiZhi(1)=”丑”农历1999年7月14日生日新历是。

DiZhi(2)=”寅”

DiZhi(3)=”卯”上的生日在日历上怎么看。

DiZhi(4)=”辰”

DiZhi(5)=”巳”

DiZhi(6)=”午”1月18号阳历生日。

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)=”初8221;

DayName(10)=”初8221;

DayName(11)=”十一”

DayName(12)=”十二”

DayName(13)=”十三”

DayName(14)=”十四”

DayName(15)=”十五”

DayName(16)=”十六”

DayName(17)=”十七”

DayName(18)=”十八”

DayName(19)=”十8221;

DayName(20)=”二8221;

DayName(21)=”二十一”

DayName(22)=”二十二”

DayName(23)=”二十三”

DayName(24)=”二十四”

DayName(25)=”二十五”

DayName(26)=”二十六”

DayName(27)=”二十七”

DayName(28)=”二十八”

DayName(29)=”二十8221;

DayName(30)=”三8221;

‘农历月份名

MonName(0)=””

MonName(1)=”正”

MonName(2)=”二”

MonName(3)=”三”

MonName(4)=”四”

MonName(5)=”五”

MonName(6)=”六”

MonName(7)=”七”

MonName(8)=”八”

MonName(9)=”8221;

MonName(10)=”8221;

MonName(11)=”十一”

MonName(12)=”腊”

‘公历每月前面的天数

MonthAdd(0)=0

MonthAdd(1)=31

MonthAdd(2)=59

MonthAdd(3)=90

MonthAdd(4)=

MonthAdd(5)=

农历新历转换器

MonthAdd(6)=

MonthAdd(7)=

MonthAdd(8)=

MonthAdd(9)=

MonthAdd(10)=

MonthAdd(11)=

‘农历数据

NongliData(0)=

NongliData(1)=

NongliData(2)=

NongliData(3)=

NongliData(4)=

NongliData(5)=

NongliData(6)=

NongliData(7)=

NongliData(8)=

NongliData(9)=

NongliData(10)=

NongliData(11)=

NongliData(12)=

NongliData(13)=

NongliData(14)=

NongliData(15)=

NongliData(16)=

NongliData(17)=

NongliData(18)=

NongliData(19)=

NongliData(20)=

NongliData(21)=

NongliData(22)=

NongliData(23)=

NongliData(24)=

NongliData(25)=

NongliData(26)=

NongliData(27)=

NongliData(28)=

NongliData(29)=

NongliData(30)=

NongliData(31)=

NongliData(32)=

NongliData(33)=

NongliData(34)=

NongliData(35)=

NongliData(36)=

NongliData(37)=

NongliData(38)=

NongliData(39)=

NongliData(40)=

NongliData(41)=

NongliData(42)=

NongliData(43)=

NongliData(44)=

NongliData(45)=

NongliData(46)=

NongliData(47)=46

NongliData(48)=

NongliData(49)=

NongliData(50)=

NongliData(51)=

NongliData(52)=

NongliData(53)=

NongliData(54)=

NongliData(55)=

NongliData(56)=

NongliData(57)=

NongliData(58)=

NongliData(59)=

NongliData(60)=

NongliData(61)=

NongliData(62)=

NongliData(63)=

NongliData(64)=

NongliData(65)=

NongliData(66)=

NongliData(67)=

NongliData(68)=

NongliData(69)=

NongliData(70)=

NongliData(71)=

NongliData(72)=

NongliData(73)=

NongliData(74)=

NongliData(75)=

NongliData(76)=

NongliData(77)=

NongliData(78)=

NongliData(79)=

NongliData(80)=

NongliData(81)=

NongliData(82)=

NongliData(83)=

NongliData(84)=

NongliData(85)=

NongliData(86)=

NongliData(87)=

NongliData(88)=

NongliData(89)=

NongliData(90)=

NongliData(91)=

NongliData(92)=

NongliData(93)=

NongliData(94)=

NongliData(95)=

NongliData(96)=

NongliData(97)=

NongliData(98)=

NongliData(99)=

‘生成当前公历年、月、日==>GongliStr

curYear=year

curMonth=month

curDay=day

GongliStr=curYear&”年”

If(curMonth<10)Then

GongliStr=GongliStr&”0″&curMonth&”月”

Else

GongliStr=GongliStr&curMonth&”月”

EndIf

If(curDay<10)Then

GongliStr=GongliStr&”0″&curDay&”日”

Else

GongliStr=GongliStr&curDay&”日”

EndIf

‘生成当前公历星期==>WeekdayStr

curWeekday=Weekday(curTime)

WeekdayStr=WeekName(curWeekday)

‘计算到初始时间年2月8日的天数：-2-8(正月初一)

TheDate=(curYear-)+Int((curYear-)/4)+curDay+MonthAdd(curMonth-1)-38

If((curYearMod4)=0AndcurMonth>2)Then

TheDate=TheDate+1

EndIf

‘计算农历天干、地支、月、日

isEnd=0

m=0If(NongliData(m)<)Then

k=11

Else

k=12

EndIf

n=kIf(n<0)Then

ExitDo

EndIf

‘获取NongliData(m)的第n个二进制位的值

bit=NongliData(m)

Fori=1TonStep1

bit=Int(bit/2)

Next

bit=bitMod2

If(TheDate<=29+bit)Then

isEnd=1

ExitDo

EndIf

TheDate=TheDate-29-bit

n=n-1

Loop

If(isEnd=1)Then

ExitDo

EndIf

m=m+1

Loop

curYear=+m

curMonth=k-n+1

curDay=TheDate

If(k=12)Then

If(curMonth=(Int(NongliData(m)/)+1))Then

curMonth=1-curMonth

ElseIf(curMonth>(Int(NongliData(m)/)+1))Then

curMonth=curMonth-1

EndIf

EndIf

‘生成农历天干、地支、属相==>NongliStr

NongliStr=”农历”&TianGan(((curYear-4)))&DiZhi(((curYear-4)))&”年”

NongliStr=NongliStr&”(“&ShuXiang(((curYear-4)))&””

‘生成农历月、日==>NongliDayStr

If(curMonth<1)Then

NongliDayStr=”闰”&MonName(-1curMonth)

Else

NongliDayStr=MonName(curMonth)

EndIf

NongliDayStr=NongliDayStr&”月”

NongliDayStr=NongliDayStr&DayName(curDay)

calendar=NongliStr&NongliDayStr&”)”

EndFunction

以上内容是小编精心整理的关于农历阴历转换器 农历阴历转换器在线查询的精彩内容，好的文章需要你的分享，喜欢农历阴历转换器 农历阴历转换器在线查询这篇精彩文章的，请您经常光顾吧！