为何仪表盘数据要快1秒？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为何仪表盘数据要快1秒？

共有2277人关注过本帖树形打印复制链接主题：为何仪表盘数据要快1秒？

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

为何仪表盘数据要快1秒？ 发帖心情

Post By：2024/9/24 8:38:00 [只看该作者]

为何仪表盘数据要快1秒？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目924.rar

有点蓝

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

加好友

发短信

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

Post By：2024/9/24 8:49:00 [只看该作者]

计划管理和窗口计时器未必是同步的，如果要同步，要么全部放到一个计划里，要么全部放到一个计时事件里

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/9/24 9:13:00 [只看该作者]

确实是这样

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/9/25 10:55:00 [只看该作者]

'DatePart函数语法:DatePart(interval, Date[, firstdayofweek[, firstweekofyear]])

'firstdayofweek参数的设定值:指定星期一为第一天。vbMonday2星期一

'firstweekofyear参数的设定值:指定一年中第一周，新年中包含 1 月 1 日至少有四天的星期为第一周。(即大半个星期)'vbFirstFourDays 2

'e.DataRow("中国标准年周次") = e.DataRow("日期").Year & "年第" & Datepart("ww", e.DataRow("日期")[, vbMonday[, vbFirstFourDays]]) & "周"

老师, 请教一下, 这样写怎么出错？

有点蓝

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

加好友

发短信

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

Post By：2024/9/25 10:59:00 [只看该作者]

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

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/9/25 12:39:00 [只看该作者]

DatePart函数语法：DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

firstdayofweek如果没有指定，则默认为星期日为第一天。

firstweekofyear如果没有指定，则默认为从包含 1 月 1 日的星期为第一周。

根据：Datepart("ww", e.DataRow("日期"))计算

2019-12-31星期二 2019年第53周，根据中国标准，应算2020年第1周

2021-01-01星期五 2021年第1周，根据中国标准，应算2020年第53周

根据中国标准，firstdayofweek和firstweekofyear这两个参数不能使用缺省值，应设置为：

firstdayofweek 参数的设定值如下:

常数值描述

vbMonday 2 星期一

firstweekofyear 参数的设定值如下:

常数值描述

vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。

请教老师，下面这个代码怎么修改？

Datepart("ww", e.DataRow("日期")[, vbMonday[, vbFirstFourDays]])

或

Datepart("ww", e.DataRow("日期")[, 2[, 2]])

有点蓝

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

加好友

发短信

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

Post By：2024/9/25 13:27:00 [只看该作者]

去掉中括号

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/9/25 14:30:00 [只看该作者]

中国标准的年周次计算正确代码

e.DataRow("中国标准年周次") = Datepart("ww", e.DataRow("日期"), vbMonday, vbFirstFourDays) '星期一为星期第一天；新年中包含 1 月 1 日至少有四天的星期为第一周

这里加上年和周后, 年就不对了, 还需要进行判断

e.DataRow("辅助年周次2") = e.DataRow("日期").Year & "年第" & Datepart("ww", e.DataRow("日期"), vbMonday, vbFirstFourDays) & "周"

请教老师, 这里代码如何表达年初几天, 若1月1日为星期5、6、7, 则为上年的年数；年末12月31日为星期1、2、3, 则为下年的年数；

如：2021 - 01 - 01星期五 2020年第53周 2019 - 12 - 31星期二 2020年第1周

有点蓝

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

加好友

发短信

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

Post By：2024/9/25 15:00:00 [只看该作者]

没看懂想表达什么问题？

jhxb8821

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

加好友

发短信

等级：四尾狐帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/9/25 15:39:00 [只看该作者]

If e.DataCol.name = "日期" Then '如果更改的日期列

If e.DataRow.IsNull("日期") Then '日期是否为空

Else

Dim d0 As Date = e.DataRow("日期")

Dim d1 As Date

Dim d2 As Date

Dim d3 As Date

Dim d4 As Date

Dim ZY As Integer = d0.Year

d1 = New Date(ZY, 1, 1) '取得该年的第一天

d2 = New Date(ZY, 12, 31) '取得该年的最后一天

d3 = New Date(ZY, 1, 4)

d4 = New Date(ZY, 12, 28)

Dim xq1 As Integer = Weekday(d1, 2)

Dim xq2 As Integer = Weekday(d2, 2)

If d0＜d3 And xq1>4 Then '也就是1月1日是星期四后面的（包括星期5、6、7）

e.DataRow("中国标准年周次1") = ZY - 1 & "年第" & Datepart("ww", d0, vbMonday, vbFirstFourDays) & "周"

ElseIf d0＞d4 And xq2＜4 Then '也就是12月31日是星期四前面的（包括星期1、2、3）

e.DataRow("中国标准年周次1") = ZY + 1 & "年第1周"

Else

e.DataRow("中国标准年周次1") = ZY & "年第" & Datepart("ww", d0, vbMonday, vbFirstFourDays) & "周"

End If

老师，请看一下，这样写行吗，代码还能不能简单点

[此贴子已经被作者于2024/9/25 16:41:33编辑过]

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

总数 15 1 2 下一页

主题：为何仪表盘数据要快1秒？