农历天数计算器

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

阴历和阳历生日转换器

阳历生日是年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(curMonth10)Then

GongliStr=GongliStr”0″curMonth”月”

Else

GongliStr=GongliStrcurMonth”月”

EndIf

If(curDay10)Then

GongliStr=GongliStr”0″curDay”日”

Else

GongliStr=GongliStrcurDay”日”

EndIf

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

curWeekday=Weekday(curTime)

WeekdayStr=WeekName(curWeekday)

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

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

If((curYearMod4)=0AndcurMonth2)Then

TheDate=TheDate+1

EndIf

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

isEnd=0

m=0If(NongliData(m))Then

k=11

Else

k=12

EndIf

n=kIf(n0)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(curMonth1)Then

NongliDayStr=”闰”MonName(-1curMonth)

Else

NongliDayStr=MonName(curMonth)

EndIf

NongliDayStr=NongliDayStr”月”

NongliDayStr=NongliDayStrDayName(curDay)

calendar=NongliStrNongliDayStr”)”

EndFunction

农历天数计算器相关文章：