【spy 易语言源码】【交易买点指标源码】【聊天公会源码】算命vb源码

【spy 易语言源码】【交易买点指标源码】【聊天公会源码】算命vb源码_算命源码正版

时间：2024-11-30 01:57:59 来源：深山老妖指标源码作者：仿lofter源码

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

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

换一个网址继续算命，源码源码spy 易语言源码直到你满意为止。正版交易买点指标源码。算命算命。源码源码。正版。算命算命。源码源码如果你相信算命的正版话，我再说什么你都无法释怀，算命算命聊天公会源码还不如用算命来算算命的源码源码命。。正版。。网站源码只有js。。。

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

关键词：奕森源码价格

【spy 易语言源码】【交易买点指标源码】【聊天公会源码】算命vb源码_算命源码正版

热点关注