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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求高效代码

共有5136人关注过本帖树形打印复制链接主题：求高效代码

blackzhu

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

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/10/19 10:12:00 [显示全部帖子]

你这个计算个啥呀,就计算个时间?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/10/19 10:40:00 [显示全部帖子]

Dim ST As Date=Date.NOW

Dim Val As Double

Dim rs As Double

Dim y As Integer = Date.Today.Year

For m As Integer = 1 To 12

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m,Date.DaysInMonth(y,m))

Val = DataTables("zzjbqk").compute("count(姓名)","[工资类型] like '机关干部' And [单位代码] Like 'SZ0306020000' And [调入时间]>= # " & dt1 & "# And 调入时间<= #" & dt2 & "#") '逐天累

Output.Show(dt1.Month & "月份" & "|" & dt1.day & "天" & Val & "人数")

是这个意思不?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/10/19 13:01:00 [显示全部帖子]

那我的代码改改就行了呗

blackzhu

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

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/10/19 13:07:00 [显示全部帖子]

Dim ST As Date=Date.NOW

Dim Val As Double

Dim rs As Double

Dim y As Integer = Date.Today.Year

For m As Integer = 1 To 12

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m,Date.DaysInMonth(y,m))

Val = DataTables("zzjbqk").compute("Count(姓名)","[工资类型] like '机关干部' And [单位代码] Like 'SZ0306020000' And [调入时间]>= # " & dt1 & "# And 调入时间<= #" & dt2 & "#") '逐天累

rs = rs + Val / dt1.day

Output.Show(dt1.Month & "月份" & "|" & dt1.day & "天" & Val & "人数" & "总人数" & rs)

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

主题：求高效代码