主题：求高效代码

我写的一段按月逐日累计在职人数，再计算当月平均人数，求12月平均数之和的代码，非常低效，1000人时要3秒，400人时要0.3秒

求高效代码！开发版，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

狐爸，有没有办法呀?

 

以下是我的代码，不知道还有没有更简洁高效的办法，实际应用统计时，再加上其他条件，再放到循环体里，统计一张表需要100秒了

Dim ts As Integer '当月天数

Dim kssj As Date=#01/01/2013#

Dim monavg As Double ' 月平均人数

Dim ST As Date=Date.NOW

Dim RS As Integer

For m As Integer=0 To 11 '月

    ts= ts+Date.daysinmonth(kssj.year, kssj.month)

    For t As Integer=1 To Date.daysinmonth(kssj.year,kssj.month) '从开始时间起逐天计算

        rs=rs+DataTables("zzjbqk").compute("count(姓名)","[工资类型] like '机关%' And [单位代码] Like 'SZ0306' and [调入时间]<#"& kssj &"#") '逐天累加人数至全月

        kssj = kssj.adddays(1)

    Next

    monavg=monavg+rs/ts'逐月平均人数和

    ts=0

    If kssj>#12/21/2013# Then '如果开始时间>截止时间

        Exit For

    End If

    rs=0

Next

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

这是年末机关事业单位年报统计表上的一个必填数据，多张表上都有，并且还要根据人员的职务层次详细统计。相信好多人都要用的，还烦请狐爸帮忙看看！指点下。

算的是逐月平均人数之和

12个月平均人数和：1月：sum(每天的人数)/当月的天数+2月份。。。+12月

看来这个问题还真有点棘手

blackzhu的代码，还是要用computer方法，这个方法只要一用就费时间

老大是说过，说只要用comput就费时间，但我这段代码貌似不用不行，所以求助的。

这是国家统计局要求的算年平均人数，要求这样算，直接总合计的数据是不正确的