返回年末日期的功能

Question

我有许多财务报告，并非总是在12月31日结束。

我正在努力的功能应为年终日期，并返回现在日期和下一年末日期之间的天数，除以365。前瞻性，因此，如果年终日期是昨天，则该功能应返回364天，而不是1。）

以下尝试回报1。我相信这与约会夫有关。

Function dateCalc(ye As Date)
    Dim today As Date
    Dim x As Integer
    
    today = Date
    
    If ye < today Then
        x = (365 - DateDiff("d", ye, today)) / 365

    ElseIf ye > today Then
        x = DateDiff("d", ye, today) / 365

    Else
        x = 0
    
    End If
    
    dateCalc = x
End Function

Answer 1

使用代码的以下衍生物，

Function dateCalc(ByVal YE As Date) As Double
  If YE < Today Then
    dateCalc = (365 - DateDiff("d", YE, Date)) / 365
  ElseIf YE > Today Then
    dateCalc = DateDiff("d", YE, Date) / 365
  Else
    dateCalc = 0
  End If
End Function

在6/14/2022日期，我们看到以下内容：

• ？DateCalc（＃6/15/2022＃）生产-0.00273972602739726
• ？datecalc（＃6/13/2022＃）产生0.997260273972603

请注意，在ye＆gt;今天案例，约会夫为-1。如果您想要积极的话，请否定它。从问题中尚不清楚这是否是所需的输出，但是主要问题似乎是使用Integer而不是double> double。