vb 请问一个问题.如果将本月第几周.换算成.日期段

Private Sub Command1_Click() Dim Ks As Date '当月第一天 Dim Zs As Long '周数 Dim Ssj As Date '时间段开始时间 Dim Esj As Date '时间段结束时间 Dim Srsj As Date '输入时间 Dim Jg As Long '间隔天数 Srsj = CDate(InputBox("请输入时间", "输入", Date)) Ks = Year(Srsj) & "-" & Month(Srsj) & "-1" Jg = DateDiff("d", Ks, Srsj) + 1 If Jg Mod 7 = 0 Then Zs = Jg \ 7 Else Zs = Int(Jg / 7) + 1 End If Ssj = DateAdd("d", (Zs - 1) 7, Ks) '计算时间段 Esj = DateAdd("d", 6, Ssj) MsgBox "本月第" & Zs & "周" & vbCrLf & "从" & Ssj & "号到" & Esj & "号", , "提示：" & Srsj End Sub

求采纳

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

麻烦各位大虾给出解决思路！ 谢谢！

解析:

这个就用个控件就可以了，把一个怪物，放在一个IMG中，打IMG的坐标，就能找到怪物坐标，这种游戏我也写过，只是不太好玩，像是三岁的小孩子玩的

假设数据分别在A、B、C列，请自行修改代码中的行数

另外，第二列中关于判断“是否为美国假期”这个要求，似乎没有更好的解决办法，建议建立一个美国假日列表，然后根据列表再作判断。

Dim rng As Range

Dim wsf As WorksheetFunction

Set wsf = WorksheetFunction

'第一列: 该日期是否为该月的第一个星期四

For Each rng In Range("A1:A100")

If IsDate(rng) Then ' 如果不是日期数据，则不予处理

If Weekday(rng, vbThursday) = 1 And Month(rng - 7) = Month(rng) Then

rngInteriorColorIndex = xlNone ' 设置为无底纹

Else

rngInteriorColor = vbRed ' 设置为红色底纹

End If

End If

Next rng

'第二列：该日期是否是每个月的15日，如果周末，这将是14日或13日。

For Each rng In Range("B1:B100")

If IsDate(rng) Then ' 如果不是日期数据，则不予处理

If Day(rng) = (15 - wsfMax(0, Weekday(rng, vbMonday) - 5)) Then

rngInteriorColorIndex = xlNone ' 设置为无底纹

Else

rngInteriorColor = vbRed ' 设置为红色底纹

End If

End If

Next rng

'第三列：判断该列是否都为周三，并且该列每个日期上下相邻的两个日期都是连续的间隔两周的日期，如：2013/4/10,2013/4/24,2013/5/8。

For Each rng In Range("C1:C100")

If IsDate(rng) Then ' 如果不是日期数据，则不予处理

If (Weekday(rng, vbWednesday) = 1) _

And (rng - 14 = rngOffset(-1, 0)) _

And (rng + 14 = rngOffset(1, 0)) Then

rngInteriorColorIndex = xlNone ' 设置为无底纹

Else

rngInteriorColor = vbRed ' 设置为红色底纹

End If

End If

Next rng

End Sub

select from table where date between (getdate()-((datepart(weekday,getdate())+5)% 7)）) and getdate()

datepart(weekday,'2009-12-12')函数是获取周信息，返回一个整数，

1表示周日，2表示周一，以此类推

以上就是关于vb 请问一个问题.如果将本月第几周.换算成.日期段全部的内容，包括:vb 请问一个问题.如果将本月第几周.换算成.日期段、请问 用VB怎么得到游戏中玩家周围怪物的坐标、VBA如何判断一个日期是什么星期等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！