农历生日计算器 农历生日计算器在线1981年农历7月7曰( 三 )


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”月”
【农历生日计算器 农历生日计算器在线1981年农历7月7曰】 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
以上就是与阳历生日转换阴历生日相关内容 , 是关于必须历转换成阳历,找这么一量转换的工具的分享 。看完阴历和阳历生日转换器后 , 希望这对大家有所帮助!

农历生日计算器 农历生日计算器在线1981年农历7月7曰

文章插图
农历生日计算器 , 农历生日是怎么算的农历生日计算器
为什么有的人能活到100岁?
为什么有的人却早早离世?
到底是什么影响着我们的寿命?
美国坦普尔大学神经学系伍得拉夫教授对长寿者进行了数十年的考察 , 推出下面这套“长寿测试题”(又称“寿命计算器”) , 目前已成为大学教材 , 大家不妨也来做一下 。
如果不考虑飞来横祸 , 据说它能让我们算出自己大概能活多少岁 。虽然不是百分百准确 , 但也能反映自己的健康问题 。
首先 , 
花费5秒钟的时间 ,