有关星期的问题，急用，一解决就给分，在线等！！！

chater 2004-01-16 04:43:20
用户给两个参数：XXXX年X月，X周。
我需要从这两个参数中获取相应的一个时间段：XXXX年X月X日～XXXX年X月X日。如　例如：
用户输入了：时间：2004年1月，周数:1(第一周）
我要得到：2004-1-1至 2004-1-3.

用户输入了：时间：2004年1月，周数:2(第二周）
我要得到：2004-1-4至 2004-1-10.


一经解决，立马给分！

真想早点搞定，早点回家过年，否则，呜呜，大家帮忙了。谢了！

（注：要用VB语法。我要在水晶报表里用。）
...全文
101 20 打赏 收藏 转发到动态 举报
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
chater 2004-01-17
  • 打赏
  • 举报
 回复
谢谢大家的回答，大家都这么热心地帮我，真的很感激。
在大家的帮助下，我解决了问题，本来rainstormmaster(暴风雨 v2.0)的解决方案
已经使我可以解决问题，由于我是在水晶报表里解决这个问题，用的是SQLSERVER数据
库，后两位的解决方案对我来说，更轻松地实现了这一点，在此特别感谢：
rainstormmaster暴风雨 v2.0，northwolves野性的呼唤，supergirlly别样冷冰寒（名子好酷！），lepeng乐鹏 ，lianyiyong涟漪勇。

另：To lepeng乐鹏,兄弟，你太猛了，连为外国人编的都能看出来，在下真真佩服的紧！

放分！
lianyiyong 2004-01-17
  • 打赏
  • 举报
 回复
直接在SQL Server 使用
SELECT DetePart(Week,GetDate())
直接得到所要月份的星期。GetDate是你需要的时间。
建立Week字段，然后在水晶报表中处理。
supergirlly 2004-01-17
  • 打赏
  • 举报
 回复
HI:
其实，你可以在数据库中，使用Month，Week，等时间类型函数后，把字段进行处理，如Week（getdate（））as DWeek。直接让它作为一个字段，在Crystal Report中就可以直接引用。
kimurakenshin 2004-01-17
  • 打赏
  • 举报
 回复
up up
mmcgzs 2004-01-17
  • 打赏
  • 举报
 回复
northwolves(野性的呼唤) 修改后的程序可以用
lepeng 2004-01-17
  • 打赏
  • 举报
 回复
请教：这是为外国人编的吗？

还是大佬厉害。
lepeng 2004-01-17
  • 打赏
  • 举报
 回复

可以设计时设置：
combo1.text=2003
combo2.text=1
combo3.text=1


--fine--
lepeng 2004-01-17
  • 打赏
  • 举报
 回复
简陋，向各位学习


Option Explicit


Private Sub Command1_Click()
Dim EndDate As Date '结束日期
Dim lDay As Long '用户设定周数的天数
Dim tmpStarDate As Date '每月开始第一天
Dim FirstEndDate As Date '第一周结束日期
Dim StarDate As Date

lDay = (Val(Combo3.Text) - 1) * 7 '第一周以后需加上的天数

tmpStarDate = Combo1.Text & "/" & Combo2.Text & "/" & "1" '设定每月开始第一天

Select Case Weekday(tmpStarDate) '每月开始第一天是星期几
Case 1
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 0) '确定第一周结束日期
Case 2
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 6)
Case 3
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 5)
Case 4
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 4)
Case 5
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 3)
Case 6
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 2)
Case 7
FirstEndDate = Combo1.Text & "/" & Combo2.Text & "/" & Str(1 + 1)
End Select

If lDay = 0 Then '第一周不加
StarDate = tmpStarDate
EndDate = FirstEndDate
Else
lDay = (Val(Combo3.Text) - 1) * 7 '避免下月包括上月日期
StarDate = DateAdd("w", lDay - 6, FirstEndDate)
EndDate = DateAdd("w", lDay, FirstEndDate)
End If

If StarDate = EndDate Then '避免月份第一天为星期天
lDay = Val(Combo3.Text) * 7
StarDate = DateAdd("w", lDay - 6, FirstEndDate)
EndDate = DateAdd("w", lDay, FirstEndDate)
End If



MsgBox StarDate & "：" & EndDate
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 2003 To 2020
Combo1.AddItem Str(i) '用户选择年
Next i

For i = 1 To 12
Combo2.AddItem Str(i) '用户选择月
Next i

For i = 1 To 5
Combo3.AddItem Str(i) '用户选择周
Next i
End Sub
88391788 2004-01-16
  • 打赏
  • 举报
 回复
mark
northwolves 2004-01-16
  • 打赏
  • 举报
 回复
修改了一下：
Option Explicit

Private Sub Form_Load()
MsgBox GETWEEK(2004, 1, 3)
End Sub
Function GETWEEK(ByVal YEAR As Integer, ByVal MONTH As Integer, ByVal WEEKS As Integer) As String

If YEAR < 1 Or YEAR > 9999 Or MONTH < 1 Or MONTH > 12 Then MsgBox "ERR!": Exit Function
On Error Resume Next
Dim DAYS As Integer, ALLDAY As New Collection, I As Integer, K As Integer, TEMPDAY As Date
DAYS = Day(DateSerial(YEAR, MONTH + 1, 0))
K = 1
TEMPDAY = DateSerial(YEAR, MONTH, 1)
ALLDAY.Add TEMPDAY, K & Weekday(TEMPDAY)
For I = 2 To DAYS
TEMPDAY = DateSerial(YEAR, MONTH, I)
If Weekday(TEMPDAY) = 1 Then K = K + 1
ALLDAY.Add TEMPDAY, K & Weekday(TEMPDAY)
Next
For I = 1 To 7
GETWEEK = GETWEEK & vbCrLf & ALLDAY(WEEKS & I)
Next
Set ALLDAY = Nothing
End Function
华芸智森 2004-01-16
  • 打赏
  • 举报
 回复
以下程序已验证通过.

Dim StarDate As Date'开始日期
Dim EndDate As Date '结束日期
Dim DltWeekDay As Long '一周的第几天
Dim DltDay As Long '两日期的差.
Dim lWeek As Long '周数
'以下取2003年1月第三周的日期间隔.
lWeek = 3
StarDate = "2003/1/1"
DltWeekDay = Weekday(A)
DltDay = lWeek * 7 - (7 - DltWeekDay) - 1
EndDate = DateAdd("d", DltDay, A)
'
MSGBOX STARDATE & ":" & enddate
northwolves 2004-01-16
  • 打赏
  • 举报
 回复
Private Sub Command1_Click()
MsgBox getdates("2004-01", 2)
End Sub
Function getdates(ByVal themonth As String, weeks As Integer) As String
On Error Resume Next
Dim days As Integer, allday As New Collection, k As Integer
days = Day(DateSerial(Left(themonth, 4), Right(themonth, 2) + 1, 0))
k = 1
For i = 1 To days
thedate = DateSerial(Left(themonth, 4), Right(themonth, 2), i)
allday.Add thedate, k & Weekday(thedate)
If Weekday(thedate) = 1 Then k = k + 1
Next
For i = 1 To 7
Debug.Print allday(weeks & i)
Next
End Function
rainstormmaster 2004-01-16
  • 打赏
  • 举报
 回复
Private Type myweek
weekfirst As String
weeklast As String
End Type

Private Function getweek(ByVal myear As Integer, ByVal mmonth As Integer, ByVal weeknum As Integer) As myweek
Dim mday As Date
mday = DateSerial(myear, mmonth, 1)
Dim i As Integer
i = Weekday(mday, vbSunday)
Dim fday As Date
fday = DateAdd("d", 1 - i, mday)
Dim nday As Date
nday = DateAdd("d", 7 - i, mday)
If weeknum = 1 Then
getweek.weekfirst = CStr(mday)
getweek.weeklast = CStr(nday)
End If
If weeknum > 1 Then
fday = DateAdd("d", (weeknum - 1) * 7, fday)
If month(fday) > mmonth Then
MsgBox "该月没有第" + CStr(weeknum) + "周"
getweek.weekfirst = "输入数据有误"
getweek.weeklast = "输入数据有误"
Exit Function
End If
nday = DateAdd("d", (weeknum - 1) * 7, nday)
If month(nday) > mmonth Then
nday = DateSerial(myear, mmonth + 1, 1)
nday = DateAdd("d", -1, nday)
End If
getweek.weekfirst = CStr(fday)
getweek.weeklast = CStr(nday)
End If
End Function

Private Sub Command1_Click()
'调用
MsgBox getweek(2004, 1, 2).weekfirst '获得该周第一天
MsgBox getweek(2004, 1, 2).weeklast '获得该周最后一天
End Sub

liyd1978 2004-01-16
  • 打赏
  • 举报
 回复
DateAdd Function


Returns a Variant (Date) containing a date to which a specified time interval has been added.

Syntax

DateAdd(interval, number, date)

The DateAdd function syntax has these named arguments:

Part Description
interval Required. String expression that is the interval of time you want to add.
number Required. Numeric expression that is the number of intervals you want to add. It can be positive (to get dates in the future) or negative (to get dates in the past).
date Required. Variant (Date) or literal representing date to which the interval is added.


Settings

The interval argument has these settings:

Setting Description
yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second


Remarks

You can use the DateAdd function to add or subtract a specified time interval from a date. For example, you can use DateAdd to calculate a date 30 days from today or a time 45 minutes from now.

To add days to date, you can use Day of Year ("y"), Day ("d"), or Weekday ("w").

The DateAdd function won't return an invalid date. The following example adds one month to January 31:

DateAdd("m", 1, "31-Jan-95")

sqfeiyu 2004-01-16
  • 打赏
  • 举报
 回复
自己编个函数，从该月第一天算起，循环几个星期天
Weekday函数可以判断当天是星期几。
zfl2k 2004-01-16
  • 打赏
  • 举报
 回复
自己编个函数，从该月第一天算起，循环几个星期天不就行了。
代码我懒得写。
chater 2004-01-16
  • 打赏
  • 举报
 回复
我用的是SQLServer数据库。
macroyan 2004-01-16
  • 打赏
  • 举报
 回复
ORACLE数据库中应该有相应的函数！
j4sxw 2004-01-16
  • 打赏
  • 举报
 回复
没搞过
cqq_chen 2004-01-16
  • 打赏
  • 举报
 回复
查CSDN中的FORMAT
ArcGIS教程空间制图含ArcMap视频教程上集
教程分为上中下三部，已全部录制完毕，全部课程120节。课程内容：1，没有空话和ppt干讲，就是软件技术实操。2，课程内容软件技术实操是地学空间分析、空间制图、数据处理中常用急用的技术知识。3，内容含从ArcMap到ArcCatalog，从矢量数据到栅格数据，从数据分析到数据编辑，从属性表到统计图等。4，课程操作知识全面，教学简明，所有操作都在3-5分钟之内就教学完毕，直接出结果。5，2-3天可以掌握课程技术要点，完成对矢量地图的创建和栅格数据的空间分析，上手研究工作。6，具体知识点详见课程目录，上中下三集主要包括：专题地图制作；矢量数据创建（土地利用提取等）；栅格分析和栅格矢量互转；ArcCatalog数据管理。7，课程一经购买，永久有效，随到随学。8，课程所需练习资料在第三节课的课件里可以下载。
年薪20万，我却养不起四位老人（转）
苏默是一个年薪20万的城市白领，月收入近两万元，在外人眼里的他是风光体面的。外出时小车代步，还是高档次的别克车款。家有娇妻，全职主妇，在家相夫教子，解决了孩子的管教问题。住着一百六十多平米的商品房，家电设备一应俱全。逢年过节回家探望双方父母时，总是能得到一片赞叹声，羡慕的眼光随处可见。 就在上个星期，我接到了苏默的短信，信息的大概内容是向我借二万元钱，有急用，三个月后如数归还。我...
Macbookpro开机只能进入恢复模式后的解决方案(过程太戏剧性了有时间可以看完)
说在开头 如果你的电脑也是这种情况，可以尝试我的方法，但我不能保证能成功解决，我自己比较业余然后也不急着用，所以闲置了半年时间，中间断断续续的折腾了几下，如果你急着使用，以下几种方法不行的话，赶紧去官方店检查以下原因，我实在是太懒了，如果当初我直接拿到Apple官方店检测一下，就不用闲置半年了。 下面的故事是比较有趣的，介绍了我如何闲置，同时因为懒，奸商的原因，最后一分钱没花，两步解决了问题，当然如果你只是简单的不会重新安装系统，直接找客服就可以了。里面也会将我找客服的一些事情，非常有意思，我感觉缺了哪
《向朋友借钱》：一个发人深省的故事
上个月，我的一个朋友某某因为生意上出了点意外，急需要一笔钱，当他打电话给我时，我感觉有一点奇怪，因为我们的关系仅仅只限于一般朋友，故此，就有了一点点犹豫。 我说：一会儿我给你电话吧。 我考虑了十分钟，决定把这钱借给他。 上个星期，他把钱还给了我，之后请我喝茶。 他说：你答应借钱给我还真出乎我的意料之外！ 我问：为什么？ 他回答：打你电话之前我已经打过9通电话，你
狂欢，不过是一群人的孤单-->来自人人
上个月，我的一个朋友魏某因为生意上出了点意外，急需要一笔钱，当他打电话给我时，我感觉有一点奇怪，因为我们的关系仅仅只限于一般朋友，故此，就有了一点点犹豫。我说：一会儿我给你电话吧。　　我考虑了十分钟，决定把这钱借给他。　　上个星期，他把钱还给了我，之后请我喝茶。　　他说：你答应借钱给我还真出乎我的意料之外!　　我问：为什么?　　他回答：打你电话之前我已经打过9通电话，你是第10个。当你说“一会儿给...
VB基础类

7,762

社区成员

197,608

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章