【vba获取图标源码】【webbuilder7源码】【免费算命app源码】vb显示动态时间源码

【vba获取图标源码】【webbuilder7源码】【免费算命app源码】vb显示动态时间源码_vb显示时间代码

2024-11-18 23:50:40 来源：知识分类：知识

1.能不能把VB的显示显示那个日历的源代码发给我？我急用我只有20财富都给你了
2.谁有用VB做的21点游戏源代码

vb显示动态时间源码_vb显示时间代码

能不能把VB的那个日历的源代码发给我？我急用我只有20财富都给你了

Function nl()

'获取当前系统时间

curTime = Now()

Dim WeekName(7), MonthAdd(), NongliData(), TianGan(9), DiZhi(), ShuXiang(), DayName(), MonName()

'星期名

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

'生成当前公历年、月、动态代码vba获取图标源码日 ==> GongliStr

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

GongliStr = curYear & "年"

If (curMonth < ) The时间时间webbuilder7源码n

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

'计算农历天干、地支、源码免费算命app源码月、显示显示免费同城系统源码日

isEnd = 0

m = 0

If (NongliData(m) < ) The动态代码体育打卡APP源码n

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 ) & ")"

'生成农历月、源码日 ==> NongliDayStr

If (curMonth < 1) The显示显示n

NongliDayStr = "闰" & MonName(-1 * curMonth)

Else

NongliDayStr = MonName(curMonth)

End If

NongliDayStr = NongliDayStr & "月"

NongliDayStr = NongliDayStr & DayName(curDay)

nl = NongliStr & NongliDayStr

End Function

msgbox nl

</script>

谁有用VB做的点游戏源代码

Public Class Frm

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click

Btn.Visible = True

BtnCheat.Visible = True

Txt1.Visible = True

Txt2.Visible = True

Txt3.Visible = True

End Sub

Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click

PB.Visible = False

Randomize()

Txt1.Text = CShort(Rnd() * )

Txt2.Text = CShort(Rnd() * )

Txt3.Text = CShort(Rnd() * )

If CShort(Txt1.Text) + CShort(Txt2.Text) + CShort(Txt3.Text) = Then

PB.Visible = True

End If

End Sub

Private Sub BtnCheat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCheat.Click

Randomize()

Txt1.Text = CShort(Rnd() * )

Txt2.Text = CShort(Rnd() * )

Txt3.Text = - Txt1.Text - Txt2.Text

PB.Visible = True

End Sub

End Class

【vba获取图标源码】【webbuilder7源码】【免费算命app源码】vb显示动态时间源码_vb显示时间代码

关注了本文的网友还关注：

相关推荐

一周热点