如何在 Excel 中计算两个日期之间的百分比？

Author Xiaoyang Last modified 2025-08-22

在 Excel 中管理正在进行的项目或监控计划任务的进度时，通常需要根据今天的日期计算任务持续时间中已经过去的时间百分比。这使您能够通过将已过去的时间表示为总计划持续时间的百分比来评估项目是否提前、按计划进行或落后于计划。例如，您可能有一个包含任务的工作表，每个任务都有自己的开始和结束日期。您会想知道，截至今天，每个任务计划时间段的多少百分比已经过去。本教程将引导您完成在 Excel 中实现此目的的实用方法，概述自动化更新进度百分比的方式，并展示如何使用条件格式根据这些结果直观地突出显示任务。

以下屏幕截图显示了一个示例任务列表，其中包含开始日期、结束日期和所需的完成百分比计算：

calculate the percentage between two dates

使用公式计算两个日期之间的完成百分比
VBA代码 – 自动化百分比计算以实现跨行和日期的动态更新

使用公式计算两个日期之间的完成百分比

为了计算两个日期之间任务的完成百分比，您可以使用基于 Excel 的 DATEDIF 和 TODAY 函数的公式。当您的任务数量较少且数据集不经常变化时，这种方法是适用的。

1. 在您希望看到结果的那一行的空白单元格中输入以下公式（例如，在单元格 D2 中）：

=(DATEDIF(B2,TODAY(),"d")+1)/(DATEDIF(B2,C2,"d")+1)

参数解释：
B2 是任务开始日期所在的单元格，而 C2 是任务结束日期所在的单元格。 TODAY() 自动返回今天的日期，因此该公式计算自任务开始以来经过了多少天，并将其除以任务的整个计划长度。

2. 输入公式后，拖动填充柄向下复制所有必要行的公式。每一行将显示基于今天日期的任务当前完成情况。以下示例演示了这一点应用于多个任务的情况：

计算两个日期之间的百分比

3. 选择所有计算后的单元格。转到“主页”选项卡，然后点击“数字”组中的“百分比样式”按钮，以百分比形式显示值而不是小数。您可以使用“增加小数位数”和“减少小数位数”按钮进一步调整小数位数以达到所需的精度。

format the cell values as percentage format

注意事项：这种方法非常灵活，但您需要确保所有日期单元格在 Excel 中格式化为实际日期；否则可能会出现错误或不正确的值。

如果您希望结果每天自动更新，TODAY() 可确保每次工作簿重新计算或打开时，百分比反映当前进度。但是请注意，如果引用手动输入的静态值（而不是 TODAY()），随着时间的推移，您需要自行更新这些日期。

VBA代码 – 自动化百分比计算以实现跨行和日期的动态更新

如果您的工作表包含许多具有定义的开始和结束日期的任务，您可以使用 VBA 根据今天的日期自动计算每个任务的进度百分比。当您希望动态更新跨行的任务进度而无需手动填充公式时，此方法很有帮助。宏循环遍历每一行，将今天的日期与任务的开始和结束日期进行比较，并计算经过的时间占总持续时间的百分比。结果随后被插入到目标列中，提供每个任务进展程度的快速概览。

1. 按 Alt + F11 打开 Microsoft Visual Basic for Applications 编辑器。在 VBA 编辑器中，转到插入 > 模块创建一个新模块，然后将以下代码粘贴到其中：

Sub UpdateTaskCompletionPercent()
'Updated by Extendoffice 20250724
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim StartDateCol As String, EndDateCol As String, PercentCol As String
    Dim startDate As Variant, endDate As Variant, todayDate As Date
    Dim pct As Double
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = Application.ActiveSheet
    
    ' Adjust these column letters as needed
    StartDateCol = "B"
    EndDateCol = "C"
    PercentCol = "D"
    
    todayDate = Date
    lastRow = ws.Cells(ws.Rows.Count, StartDateCol).End(xlUp).Row
    
    For i = 2 To lastRow ' Skip header
        startDate = ws.Cells(i, StartDateCol).Value
        endDate = ws.Cells(i, EndDateCol).Value
        
        If IsDate(startDate) And IsDate(endDate) Then
            If endDate >= startDate Then
                If todayDate < startDate Then
                    pct = 0
                ElseIf todayDate >= endDate Then
                    pct = 1
                Else
                    pct = (todayDate - startDate + 1) / (endDate - startDate + 1)
                End If
                ws.Cells(i, PercentCol).Value = pct
                ws.Cells(i, PercentCol).NumberFormat = "0.00%"
            Else
                ws.Cells(i, PercentCol).Value = "Invalid dates"
            End If
        Else
            ws.Cells(i, PercentCol).Value = "Date error"
        End If
    Next i
End Sub

2. 输入代码后，按 F5 （或点击运行按钮）执行脚本。此批处理操作将立即根据当前日期填写每行的百分比列（D）。