循环遍历多个日期记录以查找天数

Question

需要遍历日期记录以计算工作天数。日期的数量因人而异，可能少至 1 个，也可多至 11 个，以从序列中的最后一个日期到当前日期的计算结束。

数据示例：

Employee No     Date     
4522            08/11/2011
4522            09/06/2011
4522            05/04/2013
4522            07/15/2013
4522            01/31/2014

所以今天是 2014 年 4 月 29 日，所以从 01/31/2014 到 04/29/2014 是 88 天，从 05/04/2013 到 07/15/2013 是 72 天，从 08/11/2011 到2011 年 9 月 6 日是 26 天。将这些加在一起，您总共工作了 186 天。

同样，日期的数量在每种情况下都会有所不同。

这是我目前所拥有的......

Sub getActualEmployment(empID As Variant)
  Dim strconnection, strSQL As String
  Dim conn As ADODB.Connection
  Dim tbl As ADODB.Recordset
  Dim OptimumCode As String
  Dim orghrdt As Date
  Dim intNumDays As Integer

  strSQL = "SELECT EmployeeID,EffectiveDate, OriginalHireDate FROM "
  strSQL = strSQL & "EmploymentStatusChanges WHERE EmployeeID= '" & empID & "'"
  strSQL = strSQL & " Order by EffectiveDate ASC"

  Set tbl = New ADODB.Recordset

  With tbl
    Set .ActiveConnection = conn
    .Source = strSQL
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .Open
  End With

  With tbl
    On Error Resume Next
    .MoveFirst
      Do Until tbl.EOF
        If tbl!OriginalHireDate = tbl!EffectiveDate Then
          orghrdt = tbl!EffectiveDate
        Else
          intNumDays = CInt(DateValue(tbl!EffectiveDate) - orghrdt)

        End If
        .MoveNext
      Loop
  End With

End Sub

这是整个函数代码，希望这更有意义。

Answer 1

SELECT Employees.[Employee No], Employees.Action, Employees.DDate AS Start, Min(IIf([employees_1].[DDate]>=[employees].[ddate],[employees_1].[ddate])) AS [End], IIf([end] Is Not Null,[end],Now())-[start] AS Days
FROM Employees LEFT JOIN Employees AS Employees_1 ON Employees.[Employee No] = Employees_1.[Employee No]
WHERE (((Employees_1.Action)="term"))
GROUP BY Employees.[Employee No], Employees.Action, Employees.DDate
HAVING (((Employees.Action)="hire" Or (Employees.Action)="rehire"));

此查询提供了所有招聘事件和相应条款的列表，并为每个事件计算了天数。在查看第一个查询的结果后，您可以使用第二个查询按员工汇总天数。

注意 - 这假设您有一组交替的雇用/终止事件。如果没有，您可能需要为此添加一些验证。另外，我认为 Date 是保留的，所以我使用 DDate 作为字段名。

Answer 2

在调用 MoveFirst 方法和迭代记录集之前，请始终确保检查记录数以确保至少有一条记录。这比依赖错误处理程序更好。

当您说想要前两个日期之间的天数时，您是指第 0 行和第 1 行中“日期”列中的日期，还是指我们在其他列中的同一行中的日期？图片中看不到？我假设还有其他日期列“OriginalHireDate”和“EffectiveDate”。

使用 VB6 中的 DateDiff 函数计算日期之间的差异。此处概述：

http://www.chennaiiq.com/developers/reference/visual_basic/functions/datediff.asp

intNumDays = DateDiff("d", CDate(tbl!EffectiveDate), orghrdt)

这将返回 tbl!EffectiveDate 和 orghrdt 之间的天数。如果后者在前者之后，它将返回一个正数，如果前者在后者之后，它将返回一个负数。

如果你能澄清你的表结构和我以前的查询，我会看看我是否能进一步帮助你。您应该能够实现您的目标，而无需遍历整个记录集。