【梦幻桃源源码】【大河源码商业版】【冰雪源码完整服务端】vb农历源码

【梦幻桃源源码】【大河源码商业版】【冰雪源码完整服务端】vb农历源码_农历vba代码

2024-11-24 21:32:33 来源：仿苹果官网源码分类：焦点

1.vb å¦ä½è®¡ç®çèï¼
2.vbç®åå
3.ç¨VBå¦ä½åä¸å¹´å
4.VB农历的农历农历计算方法

vb农历源码_农历vba代码

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() =

'ååæ°æ®

NongliData(0) =

NongliData(1) =

NongliData(2) =

NongliData(3) =

NongliData(4) =

NongliData(5) =

NongliData(6) =

NongliData(7) =

NongliData(8) =

NongliData(9) =

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

If (NongliData(m) < ) Then

k =

Else

k =

End If

n = k

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)

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

'çæååå¤©å¹²ãå°æ¯ãå±ç¸ ==> 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() = ""

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() = "æ¯æ³½ä¸è¯è¾°çºªå¿µ"

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

Exit Function

ElseIf nDay > 0 Then

Exit Function

End If

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

Return String.Concat((lyear), IIf(isleap = True, "é°å¹´", "å¹´"), (lmonth), "æ", (lday))

End Function

'åå¤©å¹²

Private tiangan As String() = { "ç²", "ä¹", "ä¸", "ä¸", "æ", "å·±", "åº", "è¾", "å£¬", "ç¸"}

'åäºå°æ¯

Private di 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 Function

#End Region

VB农历的计算方法

下面是关于VB农历计算方法的基本说明。具体应用时，源码请根据实际情况进行适当的农历农历修改和补充。

1. 日期数据定义方法如下：前个字节代表1-月为大月或是源码小月，1为大月天，农历农历梦幻桃源源码0为小月天。源码大河源码商业版第位为闰月的农历农历情况，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农历源码_农历vba代码

热点文章

重点关注