【开源im源码】【spring模块源码】【验证源码查询】vb 源码 农历
1.VB农历的源码计算方法
2.vbç®åå
3.ç¨VBå¦ä½åä¸å¹´å
VB农历的计算方法
下面是关于VB农历计算方法的基本说明。具体应用时，农历请根据实际情况进行适当的源码修改和补充。
1. 日期数据定义方法如下：前个字节代表1-月为大月或是农历小月，1为大月天，源码开源im源码0为小月天。农历spring模块源码第位为闰月的源码情况，1为大月天，农历0为小月天。源码第位为闰年，农历如果不是源码闰月为0，否则给出月份，农历、源码验证源码查询、农历分别用A、源码B、C来表示，网站加锁源码即使用进制。最后4位为当年农历新年，即农历1月1日所在公历的日期，如代表1月日。白马指标源码
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
```
请注意，以上代码仅为示例，具体实现时可能需要进行相应的调整和优化。
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
热点关注
- 广东省市场监管系统公布申请人民法院强制执行典型案例
- 应用源码修改
- 已致電恭喜黃敏惠！ 李俊俋：希望可以參考我提出的政見
- sublime text源码
- 特朗普稱將在上任首日赦免因「國會山騷亂」事件被判刑者
- dx透视源码
- 指标源码6_指标源码网站
- 任务帮源码_任务帮官网
- 中國代表：希望敘利亞盡快實現和平恢復穩定
- 票數一路領先！ 黃敏惠自行宣布當選 連任嘉義市長
- spwm调制源码_spwm调制方法的定义
- 日志控件 源码_日志控件 源码怎么用
- 山东济南举办“世界认可日”主题活动 推动绿色低碳发展
- 指标源码6_指标源码网站
- 已致電恭喜黃敏惠！ 李俊俋：希望可以參考我提出的政見
- 源码拷贝加密
- 船載上百人超載釀禍 英吉利海峽船難5死
- 聚合系统源码_聚合系统源码有什么用
- php抓取源码
- 源码如何生成