在VBA中，可以通過DateDiff函數來計算兩個日期之間的天數。具體的代碼如下：
Sub CalculateDays()
Dim startDate As Date
Dim endDate As Date
Dim days As Long
startDate = #1/1/2022# ' 設置起始日期
endDate = #1/10/2022# ' 設置結束日期
' 計算天數差
days = DateDiff("d", startDate, endDate)
MsgBox "兩個日期之間的天數為：" & days
End Sub
在上述代碼中，我們首先定義了兩個日期變量startDate和endDate，分別表示起始日期和結束日期。然后使用DateDiff函數計算天數差，其中第一個參數是計算的單位，這里使用"d"表示天數；第二個參數是起始日期；第三個參數是結束日期。最后通過MsgBox函數顯示計算結果。
你可以根據自己的實際需求修改起始日期和結束日期的值。
