求个代码返回周数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求个代码返回周数

共有4417人关注过本帖树形打印复制链接主题：求个代码返回周数

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/9/9 21:48:00 [显示全部帖子]

如下代码，参考修改。

Dim s_date As Date = #8/21/2013#

Dim e_date As Date = #9/21/2013#

Dim ls As New List(Of String)

Dim temp As Date = s_date.AddDays(6 - s_date.DayOfWeek)

ls.Add(s_date & "-" & temp)

Do While temp < e_date

ls.Add(temp.AddDays(1) & "-" & temp.AddDays(7))

temp = temp.AddDays(7)

Loop

For Each l As String In ls

msgbox(l)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/9/9 22:15:00 [显示全部帖子]

如下代码

Dim s_date As Date = #8/21/2013#

Dim e_date As Date = #9/18/2013#

Dim ls As New List(Of String)

Dim temp As Date = s_date.AddDays(6 - s_date.DayOfWeek)

ls.Add(s_date & "-" & temp)

Do While temp < e_date.AddDays(-7)

ls.Add(temp.AddDays(1) & "-" & temp.AddDays(7))

temp = temp.AddDays(7)

Loop

ls.Add(temp.AddDays(1) & "-" & e_date)

For Each l As String In ls

msgbox(l)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/9/9 22:28:00 [显示全部帖子]

Dim s_date As Date = #8/21/2013#

Dim e_date As Date = #9/18/2013#

Dim ls As New List(Of String)

Do While s_date < e_date.AddDays(-7)

ls.Add(s_date & "-" & s_date.AddDays(6))

s_date = s_date.AddDays(7)

Loop

ls.Add(s_date & "-" & e_date)

For Each l As String In ls

msgbox(l)

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

主题：求个代码 返回周数

主题：求个代码返回周数