如何在 Excel 中計算兩個日期之間的百分比？

Author Xiaoyang Last modified 2025-08-23

在 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

注意事項：這種方法非常靈活，但您需要確保所有的日期單元格都格式化為實際的日期；否則可能會出現錯誤或不正確的值。

如果您希望結果每天自動更新，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）。