今天是农历几号_今天是农历几号的

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

阴历和阳历生日转换器

阳历生日是年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)=?癸?农历和新历生日怎么算。

?地支名称阳历11年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()=

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

以上就是与阳历生日转换阴历生日相关内容，是关于必须历转换成阳历,找这么一量转换的工具的分享。看完阴历和阳历生日转换器后，希望这对大家有所帮助！