【凭证云源码系统】【freetype 源码】【pmx源码】vb农历源码_农历vba代码
1.vb å¦ä½è®¡ç®çèï¼
2.vbç®åå
3.ç¨VBå¦ä½åä¸å¹´å
4.VB农历的农历农历计算方法
vb å¦ä½è®¡ç®çèï¼
æ·»å ä¸ä¸ªæé®åä¸ä¸ªææ¬æ¡ï¼ææ¬æ¡ç¨æ¥è¾å ¥å¹´ä»½ã
å楼ä¸ï¼è½ç¶åå纪年åå ¬å纪年æå¾å¤§å·®å«ï¼ä½æ¯ç»å¯¹æ¯ä¸å¹´å¯¹åºä¸å¹´ãåå年天æ°å°ï¼æ以å¶å®é°å¹´å¶åº¦æ¥é²æ¢ååå¹´æ¯å ¬åå¹´æ ¢ã
Dim shengxiao() As String
Private Sub Command1_Click()
Cls
Print shengxiao(Val(Text1.Text) Mod )
End Sub
Private Sub Form_Load()
shengxiao(0) = "ç"
shengxiao(1) = "é¼ "
shengxiao(2) = "çª"
shengxiao(3) = "ç"
shengxiao(4) = "鸡"
shengxiao(5) = "ç´"
shengxiao(6) = "ç¾"
shengxiao(7) = "马"
shengxiao(8) = "è"
shengxiao(9) = "é¾"
shengxiao() = "å "
shengxiao() = "è"
End Sub
vbç®åå
ç½ä¸ä¹æ代ç çã以ä¸æ¯æä¿®æ¹è¿çï¼æ²¡æ注é
Dim WeekName(7), MonthAdd(), NongliData(), TianGan(9), DiZhi(), ShuXiang(), DayName(), MonName()
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim GongliStr, WeekdayStr, NongliStr, NongliMonStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
Public Function wYear(curTime As Date, YearOrDay As Integer)
'curTimeæ¯ä¼ ééè¦è½¬åçæ¥æ,YearOrDayæ¯éè¦è¾åºä»ä¹ç»æ
' YearOrDayçå¼æ¯ 0=å¹´ææ¥,1=ä» ååå¹´,2=ä» ææ¥,3=ååèæ¥
' 4=ä» æ,5=ä» æ¥
'è·åå½åç³»ç»æ¶é´
'curTime = CDate("-4-")
'ææå
WeekName(0) = " * "
WeekName(1) = "æææ¥"
WeekName(2) = "ææä¸"
WeekName(3) = "ææäº"
WeekName(4) = "ææä¸"
WeekName(5) = "ææå"
WeekName(6) = "ææäº"
WeekName(7) = "ææå "
'天干å称
TianGan(0) = "ç²"
TianGan(1) = "ä¹"
TianGan(2) = "ä¸"
TianGan(3) = "ä¸"
TianGan(4) = "æ"
TianGan(5) = "å·±"
TianGan(6) = "åº"
TianGan(7) = "è¾"
TianGan(8) = "壬"
TianGan(9) = "ç¸"
'å°æ¯å称
DiZhi(0) = "å"
DiZhi(1) = "ä¸"
DiZhi(2) = "å¯ "
DiZhi(3) = "å¯"
DiZhi(4) = "è¾°"
DiZhi(5) = "å·³"
DiZhi(6) = "å"
DiZhi(7) = "æª"
DiZhi(8) = "ç³"
DiZhi(9) = "é "
DiZhi() = "æ"
DiZhi() = "亥"
'å±ç¸å称
ShuXiang(0) = "é¼ "
ShuXiang(1) = "ç"
ShuXiang(2) = "è"
ShuXiang(3) = "å "
ShuXiang(4) = "é¾"
ShuXiang(5) = "è"
ShuXiang(6) = "马"
ShuXiang(7) = "ç¾"
ShuXiang(8) = "ç´"
ShuXiang(9) = "鸡"
ShuXiang() = "ç"
ShuXiang() = "çª"
'ååæ¥æå
DayName(0) = "*"
DayName(1) = "åä¸"
DayName(2) = "åäº"
DayName(3) = "åä¸"
DayName(4) = "åå"
DayName(5) = "åäº"
DayName(6) = "åå "
DayName(7) = "åä¸"
DayName(8) = "åå «"
DayName(9) = "åä¹"
DayName() = "åå"
DayName() = "åä¸"
DayName() = "åäº"
DayName() = "åä¸"
DayName() = "åå"
DayName() = "åäº"
DayName() = "åå "
DayName() = "åä¸"
DayName() = "åå «"
DayName() = "åä¹"
DayName() = "äºå"
DayName() = "廿ä¸"
DayName() = "廿äº"
DayName() = "廿ä¸"
DayName() = "廿å"
DayName() = "廿äº"
DayName() = "廿å "
DayName() = "廿ä¸"
DayName() = "å»¿å «"
DayName() = "廿ä¹"
DayName() = "ä¸å"
'ååæ份å
MonName(0) = "*"
MonName(1) = "æ£"
MonName(2) = "äº"
MonName(3) = "ä¸"
MonName(4) = "å"
MonName(5) = "äº"
MonName(6) = "å "
MonName(7) = "ä¸"
MonName(8) = "å «"
MonName(9) = "ä¹"
MonName() = "å"
MonName() = "åä¸"
MonName() = "è "
'å ¬åæ¯æåé¢ç天æ°
MonthAdd(0) = 0
MonthAdd(1) =
MonthAdd(2) =
MonthAdd(3) =
MonthAdd(4) =
MonthAdd(5) =
MonthAdd(6) =
MonthAdd(7) =
MonthAdd(8) =
MonthAdd(9) =
MonthAdd() =
MonthAdd() =
'ååæ°æ®
NongliData(0) =
NongliData(1) =
NongliData(2) =
NongliData(3) =
NongliData(4) =
NongliData(5) =
NongliData(6) =
NongliData(7) =
NongliData(8) =
NongliData(9) =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
'çæå½åå ¬åå¹´ãæãæ¥ ==> GongliStr
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
GongliStr = curYear & "å¹´"
If (curMonth < ) Then
GongliStr = GongliStr & "0" & curMonth & "æ"
Else
GongliStr = GongliStr & curMonth & "æ"
End If
If (curDay < ) Then
GongliStr = GongliStr & "0" & curDay & "æ¥"
Else
GongliStr = GongliStr & curDay & "æ¥"
End If
'çæå½åå ¬åææ ==> WeekdayStr
curWeekday = Weekday(curTime)
WeekdayStr = WeekName(curWeekday)
'计ç®å°åå§æ¶é´å¹´2æ8æ¥ç天æ°ï¼-2-8(æ£æåä¸)
TheDate = (curYear - ) * + Int((curYear - ) / 4) + curDay + MonthAdd(curMonth - 1) -
If ((curYear Mod 4) = 0 And curMonth > 2) Then
TheDate = TheDate + 1
End If
'计ç®åå天干ãå°æ¯ãæãæ¥
isEnd = 0
m = 0
Do
If (NongliData(m) < ) Then
k =
Else
k =
End If
n = k
Do
If (n < 0) Then
Exit Do
End If
'è·åNongliData(m)ç第n个äºè¿å¶ä½çå¼
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate <= + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = + m
curMonth = k - n + 1
curDay = TheDate
If (k = ) Then
If (curMonth = (Int(NongliData(m) / ) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth > (Int(NongliData(m) / ) + 1)) Then
curMonth = curMonth - 1
End If
End If
'çæåå天干ãå°æ¯ãå±ç¸ ==> NongliStr
NongliStr = TianGan(((curYear - 4) Mod ) Mod ) & DiZhi(((curYear - 4) Mod ) Mod ) & "å¹´"
NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod ) Mod ) & ")"
'NongliStr = "åå" & NongliStr NongliStræ¯ååçå¹´
'çæååæãæ¥ ==> NongliDayStr
If (curMonth < 1) Then
NongliDayStr = "é°" & MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliMonStr = NongliDayStr & "æ"
NongliDayStr = DayName(curDay) 'NongliDayStrå°±æ¯ææ¥
'GongliStr = "å ¬å" & GongliStr 'è¿éæ¯å ¬åæ¥æ
'wyear = NongliStr & NongliDayStr & vbCrLf & GongliStr
'wyear = NongliStr & NongliDayStr
Select Case YearOrDay
Case 0
wYear = NongliStr & NongliMonStr & NongliDayStr
Case 1
wYear = NongliStr
Case 2
wYear = NongliMonStr & NongliDayStr
Case 3
Select Case NongliMonStr & NongliDayStr
Case "æ£æåä¸", "é°æ£æåä¸"
wYear = "æ¥è"
Case "æ£æåäº", "é°æ£æåäº"
wYear = "å 宵è"
Case "äºæåäº", "é°äºæåäº"
wYear = "端åè"
Case "ä¸æåä¸", "é°ä¸æåä¸"
wYear = "ä¸å¤è"
Case "ä¸æåäº", "é°ä¸æåäº"
wYear = "ä¸å è"
Case "å «æåäº", "é°å «æåäº"
wYear = "ä¸ç§è"
Case "ä¹æåä¹", "é°ä¹æåä¹"
wYear = "éé³è"
Case "è æåå «", "é°è æåå «"
wYear = "è å «è"
Case "è æ廿ä¸", "é°è æ廿ä¸"
wYear = "å°å¹´"
Case "è æä¸å", "é°è æä¸å"
wYear = "é¤å¤"
Case Else
wYear = ""
End Select
Case 4
wYear = NongliMonStr
Case 5
wYear = NongliDayStr
End Select
End Function
Function sGongliJieri(sD As Date)
Dim sJieriDay(), sJieriName()
sJieriDay(0) = ""
sJieriDay(1) = ""
sJieriDay(2) = ""
sJieriDay(3) = ""
sJieriDay(4) = ""
sJieriDay(5) = ""
sJieriDay(6) = ""
sJieriDay(7) = ""
sJieriDay(8) = ""
sJieriDay(9) = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriName(0) = ""
sJieriName(1) = "å æ¦è"
sJieriName(2) = "ä¸ç湿å°æ¥"
sJieriName(3) = "å½é æ°è±¡è"
sJieriName(4) = "æ 人è"
sJieriName(5) = "å½é æµ·è±¹æ¥"
sJieriName(6) = "å ¨å½ç±è³æ¥"
sJieriName(7) = "å¦é·é纪念æ¥"
sJieriName(8) = "å¦å¥³è"
sJieriName(9) = "æ¤æ èï¼åä¸å±±éä¸çºªå¿µæ¥"
sJieriName() = "å½é è¦å¯æ¥"
sJieriName() = "æ¶è´¹è æçæ¥"
sJieriName() = "ä¸å½å½å»èï¼å½é èªæµ·æ¥"
sJieriName() = "ä¸ç森ææ¥ï¼æ¶é¤ç§ææ§è§å½é æ¥ï¼ä¸çå¿ææ¥"
sJieriName() = "ä¸çæ°´æ¥"
sJieriName() = "ä¸çæ°è±¡æ¥"
sJieriName() = "ä¸çé²æ²»ç»æ ¸ç æ¥"
sJieriName() = "å ¨å½ä¸å°å¦çå®å ¨æè²æ¥"
sJieriName() = "å·´åæ¯å¦å½åæ¥"
sJieriName() = "æ人è"
sJieriName() = "ä¸çå«çæ¥"
sJieriName() = "ä¸çå°çæ¥"
sJieriName() = "ä¸çå¾ä¹¦åçææ¥"
sJieriName() = "äºéæ°é»å·¥ä½è æ¥"
sJieriName() = "å³å¨è"
sJieriName() = "éå¹´è"
sJieriName() = "ç¢ç¼ºä¹ç é²æ²»æ¥"
sJieriName() = "ä¸ç红ååæ¥"
sJieriName() = "å½é æ¤å£«è"
sJieriName() = "å½é 家åºæ¥"
sJieriName() = "å½é çµä¿¡æ¥"
sJieriName() = "å½é åç©é¦æ¥"
sJieriName() = "å ¨å½å¦çè¥å »æ¥"
sJieriName() = "å½é ç奶æ¥"
sJieriName() = "ä¸çæ çæ¥"
sJieriName() = "å½é å¿ç«¥è"
sJieriName() = "ä¸çç¯å¢ä¿æ¤æ¥"
sJieriName() = "å ¨å½ç±ç¼æ¥"
sJieriName() = "é²æ²»èæ¼ ååå¹²æ±æ¥"
sJieriName() = "å½é 奥æå¹å æ¥"
sJieriName() = "å ¨å½åå°æ¥"
sJieriName() = "å½é ç¦æ¯æ¥"
sJieriName() = "é¦æ¸¯åå½çºªå¿µæ¥ï¼ä¸å ±è¯è¾°ï¼ä¸ç建çæ¥"
sJieriName() = "å½é ä½è²è®°è æ¥"
sJieriName() = "ææ¥æäºçºªå¿µæ¥"
sJieriName() = "ä¸ç人å£æ¥"
sJieriName() = "éæ´²å¦å¥³æ¥"
sJieriName() = "建åè"
sJieriName() = "ä¸å½ç·åè(ç¸ç¸è)"
sJieriName() = "ææ¥æäºèå©çºªå¿µ"
sJieriName() = "å½é æ«ç²æ¥ï¼å½é æ°é»å·¥ä½è æ¥"
sJieriName() = "æ¯æ³½ä¸éä¸çºªå¿µ"
sJieriName() = "ä¸å½æå¸è"
sJieriName() = "ä¸çæ¸ æ´å°çæ¥"
sJieriName() = "å½é èæ°§å±ä¿æ¤æ¥"
sJieriName() = "ä¹ä¸å «äºå纪念æ¥"
sJieriName() = "å½é ç±çæ¥"
sJieriName() = "ä¸çæ 游æ¥"
sJieriName() = "ååè¯è¾°"
sJieriName() = "å½åºèé³ä¹æ¥ï¼è人è"
sJieriName() = "åå¹³ä¸æ°ä¸»èªç±æäºæ¥"
sJieriName() = "å½åºèåæ¥"
sJieriName() = "ä¸çå¨ç©æ¥"
sJieriName() = "è人è"
sJieriName() = "å ¨å½é«è¡åæ¥ï¼ä¸çè§è§æ¥"
sJieriName() = "ä¸çé®æ¿æ¥ï¼ä¸å½é®èæ¥"
sJieriName() = "è¾äº¥é©å½çºªå¿µæ¥ï¼ä¸çç²¾ç¥å«çæ¥"
sJieriName() = "ä¸çä¿å¥æ¥ï¼å½é æå¸è"
sJieriName() = "ä¸çæ åæ¥"
sJieriName() = "å½é ç²äººè(ç½ææè)"
sJieriName() = "ä¸çç²®é£æ¥"
sJieriName() = "ä¸çæ¶é¤è´«å°æ¥"
sJieriName() = "ä¸çä¼ ç»å»è¯æ¥"
sJieriName() = "èåå½æ¥"
sJieriName() = "ä¸çå¤ä¿æ¥"
sJieriName() = "åæ社ä¼ä¸»ä¹é©å½çºªå¿µæ¥"
sJieriName() = "ä¸å½è®°è æ¥"
sJieriName() = "å ¨å½æ¶é²å®å ¨å®£ä¼ æè²æ¥"
sJieriName() = "ä¸çéå¹´è"
sJieriName() = "å½é ç§å¦ä¸åå¹³å¨(æ¬æ¥æå±çä¸å¨)"
sJieriName() = "åä¸å±±è¯è¾°çºªå¿µæ¥"
sJieriName() = "ä¸çç³å°¿ç æ¥"
sJieriName() = "å½é 大å¦çèï¼ä¸çå¦çè"
sJieriName() = "å½æå¹´"
sJieriName() = "ä¸çé®åæ¥ï¼ä¸ççµè§æ¥"
sJieriName() = "å½æå¹´"
sJieriName() = "å½é 声æ´å·´åæ¯å¦äººæ°å½é æ¥"
sJieriName() = "ä¸çè¾æ»ç æ¥"
sJieriName() = "ä¸çæ®ç¾äººæ¥"
sJieriName() = "å½é ç»æµå社ä¼åå±å¿æ¿äººåæ¥"
sJieriName() = "å½é å¿ç«¥çµè§æ¥"
sJieriName() = "ä¸ç足çæ¥"
sJieriName() = "ä¸ç人ææ¥"
sJieriName() = "西å®äºå纪念æ¥"
sJieriName() = "åäº¬å¤§å± æ纪念æ¥"
sJieriName() = "æ¾³é¨åå½çºªå¿µ"
sJieriName() = "å½é 篮çæ¥"
sJieriName() = "å¹³å®å¤"
sJieriName() = "å£è¯è"
sJieriName() = "æ¯æ³½ä¸è¯è¾°çºªå¿µ"
For i = 1 To
sJieriDay1 = Left(sJieriDay(i), 2) & "-" & Right(sJieriDay(i), 2)
nDay = CInt(CDate(sJieriDay1 & "-" & Year(sD)) - CDate(Month(sD) & "-" & Day(sD) & "-" & Year(sD)))
If nDay = 0 Then
sGongliJieri = "ä»å¤©" & sJieriName(i)
Exit Function
ElseIf nDay > 0 Then
sGongliJieri = "差" & nDay & "天" & sJieriName(i)
Exit Function
End If
Next
End Function
ç¨VBå¦ä½åä¸å¹´å
ç¨VBåä¸å¹´åï¼éå¸¸å ³é®ç¹å°±æ¯åååæ³ï¼åè代ç å¦ä¸ï¼#Region " è¿ååå "
'è¿ååå
'cCalendar.è¿åæ¯æçæ大æ¥æï¼å³-1-
'cCalendar.è¿åæ¯æçæå°æ¥æï¼å³ï¼2-
Private cCalendar As New System..
Public Function PubFunGet_CNDate(ByVal sDateTime As Date) As String
cCalendar = New System..
Dim lyear As Integer = cCalendar.GetYear(sDateTime)
Dim lmonth As Integer = cCalendar.GetMonth(sDateTime)
Dim lday As Integer = cCalendar.(sDateTime)
Dim lweek As Integer = cCalendar.(sDateTime)
'è·åé°æï¼ 0 å表示没æé°æ
Dim leapMonth As Integer = cCalendar.(lyear)
Dim isleap As Boolean = False
If (leapMonth > 0) Then
If (leapMonth = lmonth) Then
'é°æ
isleap = True
lmonth = lmonth - 1
ElseIf (lmonth > leapMonth) Then
lmonth = lmonth - 1
End If
End If
Return String.Concat((lyear), IIf(isleap = True, "é°å¹´", "å¹´"), (lmonth), "æ", (lday))
End Function
'å天干
Private tiangan As String() = { "ç²", "ä¹", "ä¸", "ä¸", "æ", "å·±", "åº", "è¾", "壬", "ç¸"}
'åäºå°æ¯
Private di As String() = { "å", "ä¸", "å¯ ", "å¯", "è¾°", "å·³", "å", "æª", "ç³", "é ", "æ", "亥"}
'åäºçè
Private shengxiao As String() = { "é¼ ", "ç", "è", "å ", "é¾", "è", "马", "ç¾", "ç´", "鸡", "ç", "çª"}
'ååæ
Private months As String() = { "æ£", "äº", "ä¸", "å", "äº", "å ", "ä¸", "å «", "ä¹", "å", "åä¸", "åäº(è )"}
'ååæ¥
Private days1 As String() = { "å", "å", "廿", "ä¸"}
Private days As String() = { "ä¸", "äº", "ä¸", "å", "äº", "å ", "ä¸", "å «", "ä¹", "å"}
'è¿åååå¹´ï¼å¤©å¹² å°æ¯ çèï¼
Private Function (ByVal year As Integer) As String
= ""
If (year > 3) Then
Dim tgIndex As Integer = (year - 4) Mod
Dim dzIndex As Integer = (year - 4) Mod
Return tiangan(tgIndex) & di(dzIndex) & "[" & shengxiao(dzIndex) & "]"
End If
'æ æç年份!
End Function
'è¿åçè
Private Function (ByVal sDateTime As Date) As String
Return shengxiao(cCalendar.(cCalendar.GetSexagenaryYear(sDateTime)) - 1)
End Function
'è¿åååæ
Private Function GetLunisolarMonth(ByVal month As Integer) As String
GetLunisolarMonth = ""
If (month 0) Then
Return months(month - 1)
End If
'æ æçæ份!
End Function
'è¿åååæ¥
Private Function GetLunisolarDay(ByVal day As Integer) As String
GetLunisolarDay = ""
If (day > 0 AndAlso day
If (day AndAlso day ) Then
Return String.Concat(days1((day - 1) \ ), days((day - 1) Mod ))
Else
Return String.Concat(days((day - 1) \ ), days1(1))
End If
End If
'æ æçæ¥!
End Function
#End Region
VB农历的计算方法
下面是关于VB农历计算方法的基本说明。具体应用时，源码请根据实际情况进行适当的农历农历修改和补充。
1. 日期数据定义方法如下：前个字节代表1-月为大月或是源码小月，1为大月天，农历农历凭证云源码系统0为小月天。源码freetype 源码第位为闰月的农历农历情况，1为大月天，源码0为小月天。农历农历第位为闰年，源码如果不是农历农历闰月为0，否则给出月份，源码、农历农历pmx源码、源码分别用A、农历农历B、C来表示，loadfile源码即使用进制。最后4位为当年农历新年，即农历1月1日所在公历的日期，如代表1月日。codesys源码
2. GetYLDate函数使用方式如下：tYear为要输入的年，tMonth为月，tDay为日期。YLyear是返回值，返加农历的年份，如甲子年。YLShuXing是返回值，返回的是生肖，如鼠。IsGetGl是设置是不是通过农历取公历值，如果是，前三个返回相应的公历日期。
3. 以下是一个关于如何使用GetYLDate函数的例子：
```vb
Private Sub Command1_Click()
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String
'取公历年月日的农历日期
ty =
tm =
td =
'调用GetYLDate函数
t = GetYLDate(ty, tm, td, yl, sx)
MsgBox t
MsgBox ty & "-" & tm & "-" & td & " " & yl & " " & sx
'取年农历十月的公历日期
t = GetYLDate(ty, tm, td, yl, sx, True)
MsgBox t
MsgBox ty & "-" & tm & "-" & td & " " & yl & " " & sx
End Sub
```
请注意，以上代码仅为示例，具体实现时可能需要进行相应的调整和优化。
