我的 Excel VBA DateDiff 计算截断了答案。如何获得更准确的答案？

Question

我正在尝试计算以周为单位的日期差异。我实际上想要一个最接近的小数点后 10 位 (0.0) 的答案。计算正在截断或四舍五入我的结果。如何获得更准确的答案？下面的代码

Option Explicit


Sub DateTesting()

Dim Date1 As Date

Dim Date2 As Date

Dim DaysDiffer As Long

Dim WeeksDiffer As Long



Date1 = "1/10/2021"

Date2 = "7/14/2021"


DaysDiffer = DateDiff("d", Date1, Date2)

MsgBox DaysDiffer               

'185 is the result


WeeksDiffer = DaysDiffer / 7        

' 185/7= 26.4285


MsgBox WeeksDiffer      

' 26 is the result

'  Why am I getting a truncated integer value for the calculation of Weeks???

End Sub

Answer 1

以下是如何获取您的四舍五入的小数周数：

Sub DateTesting()

    Dim Date1       As Date
    Dim Date2       As Date

    Dim DaysDiffer  As Long
    Dim WeeksDiffer As Double

    Date1 = #1/10/2021#
    Date2 = #7/14/2021#

    DaysDiffer = DateDiff("d", Date1, Date2)

    MsgBox DaysDiffer               
    ' 185 is the result

    WeeksDiffer = DaysDiffer / 7        
    ' 26.4285714285714 is the result

    MsgBox Format(WeeksDiffer, "0.0")
    ' 26.4 is the rounded result

End Sub

有关各种日期处理，请参阅 VBA.Date。

对于高精度舍入，请参见VBA.Round。

我的 Excel VBA DateDiff 计算截断了答案。如何获得更准确的答案？

My Excel VBA DateDiff calculation is truncating answer. How do I get more precise answer?

excel

vba

datediff