【wke 源码】【源码怎么加https】【vip聊天交友源码】算命vb源码

【wke 源码】【源码怎么加https】【vip聊天交友源码】算命vb源码_算命源码正版

2024-11-30 08:01:05 来源：{typename type="name"/} 分类：{typename type="name"/}

1.ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?算命算命
2.vbç®åå
3.我刚刚在某算命网中，算得的源码源码结果不好，害怕怎么办

算命vb源码_算命源码正版

ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?正版

Private Sub Command1_Click()

Words = Array("asdf", "dfggfd", "gfhgh") 'ä½ å¯ä»¥æè¿ä¸ªæ ¼å¼å¢å

Randomize

Label1 = Words(Rnd * UBound(Words))

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

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

我刚刚在某算命网中，算得的算命算命结果不好，害怕怎么办

换一个网址继续算命，源码源码wke 源码直到你满意为止。正版源码怎么加https。算命算命。源码源码。正版。算命算命。源码源码如果你相信算命的正版话，我再说什么你都无法释怀，算命算命vip聊天交友源码还不如用算命来算算命的源码源码命。。正版。。call的源码实现。。。

我算命的python源码剖析豆瓣招术非常多，不过那都是为了骗女生宿舍的妹妹玩的，虽然她们都非常着迷的信，因为巧合和类同的情况总是每个人都有，即使算的不准，我也有办法圆回去，这是语言的技巧而已。。。。。。

【wke 源码】【源码怎么加https】【vip聊天交友源码】算命vb源码_算命源码正版

相关文章