求助一段代码

你要的平均值是个数值还是个日期？
对于你说的去掉周末和节假日最好再维护一张表，把周末和节假日去掉

给你段代码参考：
Private Sub Command1_Click()
hj = 0
rs.Open "select 生成日期, 完成日期  from 表1", cn, adOpenKeyset, adLockOptimistic
If rs.BOF = False And rs.EOF = False Then
   rs.MoveFirst
   Do While rs.EOF = False
      n = DateDiff("d", rs.Fields("生成日期"), rs.Fields("完成日期"))
      d = n
      For i = 0 To n - 1
          If Weekday(rs.Fields("生成日期") + i, vbMonday) = 6 Then d = d - 1
          If Weekday(rs.Fields("生成日期") + i, vbMonday) = 7 Then d = d - 1
          If Month(rs.Fields("生成日期") + i) = 1 And Day(rs.Fields("生成日期") + i) < 4 And Weekday(rs.Fields("生成日期") + i, vbMonday) <> 6 And Weekday(rs.Fields("生成日期") + i, vbMonday) <> 7 Then d = d - 1  '五一
          If Month(rs.Fields("生成日期") + i) = 5 And Day(rs.Fields("生成日期") + i) < 4 And Weekday(rs.Fields("生成日期") + i, vbMonday) <> 6 And Weekday(rs.Fields("生成日期") + i, vbMonday) <> 7 Then d = d - 1  '十月一
          '各种假日根据实际自己加入吧
      Next
      hj = hj + d
      rs.MoveNext
   Loop
   pj = hj / rs.RecordCount
   Text1.Text = pj
End If
rs.Close
End Sub

我先给你发一张我们维护好的表，现只给你提供2008年后的数据，第一个字段代表星期，第二个1代表休息日2代表工作日，第三个字段代表时间
把这个表和你的表关联一下，相信你也会写sql了