农历生日查询转换生日阴历查询阳历转换( 四 ) _经验知识

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
以上就是与阳历生日转换阴历生日相关内容，是关于必须历转换成阳历,找这么一量转换的工具的分享。看完阴历和阳历生日转换器后，希望这对大家有所帮助！
怎么看阴历生日是几号，农历怎么算啊，我的生日在几号？提起怎么看阴历生日是几号，大家都知道，有人问知道农历生日,阳历怎么算，另外，还有人想问怎么知道农历生日是几号，你知道这是怎么回事？其实怎么查自己的阴历生日？下面就一起来看看农历怎么算啊，我的生日在几号？希望能够帮助到大家！
怎么看阴历生日是几号
你是在阳历年2月26日那天过的农历生日，是这样吗？如果是这样的话你的农历生日是正月初五。建议你把你的生日说说清楚，我能帮你把你的生日确定下来。

农历生日查询转换 生日阴历查询阳历转换( 四 )

农历生日查询转换生日阴历查询阳历转换( 四 )