[求助]知道年数、周数，求当前周的第一天和最后一天 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]知道年数、周数，求当前周的第一天和最后一天

共有4472人关注过本帖树形打印复制链接主题：[求助]知道年数、周数，求当前周的第一天和最后一天

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]知道年数、周数，求当前周的第一天和最后一天 发帖心情

Post By：2022/7/2 12:09:00 [只看该作者]

老师好！

知道年数、周数，怎样求当前周的第一天和最后一天。

此主题相关图片如下：截屏图片 (2).jpg

Dim year As String = "1992" '年数

Dim week As String = "53" '周数

'周日为0第一天

Dim d As Date = New Date(year, 1, 1)

Dim w = d.DayOfWeek

Output.Show(w)

Dim startdate As Date

Dim Enddate As Date

Dim Enddate5 As Date ’周5

'Select Case week

' Case "1"

' startdate = d

' Enddate = d.AddDays(7 - w)

' Case "53"

' startdate = d.AddDays(7 - w).AddDays(7 * 51)

' Enddate = d.AddYears(1)

' Case Else

startdate = d.AddDays(7 - w).AddDays(7 * (val(week) - 2))

Enddate = startdate.AddDays(6)

Enddate5 = startdate.AddDays(5)

'End Select

Output.Show(startdate & " - " & Enddate & " - " & Enddate5)

[此贴子已经被作者于2022/7/3 19:34:17编辑过]

绿火柴

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：480 积分：4470 威望：0 精华：0 注册：2014/3/4 21:20:00

Post By：2022/7/2 12:38:00 [只看该作者]

1.按年推算第一周有几天

2.按年推算最后一周有几天

3.第一周天数+n周*7，可推算n周的第一天与最后一天。（n需小于最后一周）

4.如果是第一周或是最后一周，则单独推算。

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106011 积分：539142 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/2 14:05:00 [只看该作者]

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=96654

下一主题 >> << 上一主题

主题：[求助]知道年数、周数，求当前周的第一天和最后一天