Visual Basic：计算从今天到生日的天数

Question

我需要创建一个函数来计算从今天到生日的天数。 到目前为止我所拥有的是：

Function synnipaev(sk As Date, tana As Date)

synnipaev = DateDiff("d", sk, tana)

End Function

sk 是 Excel 表中的生日（格式为 10.10.2001 DD/MM/YYYY）

tana 是 Excel 工作表中的今天日期 (=TODAY() DD/MM/YYYY)

它给了我日子，但也包括了岁月。 如何使函数不包含年份？

Answer 1

DateDiff 只是为您提供两个日期之间的总天数。您需要找出当前日期与下一个生日之间的差异：

Public Function DaysToBirthday(birthday As Date) As Integer

    Dim targetYear As Integer

    'Has the birthday already passed this year?
    If Month(Now) > Month(birthday) Or _
       (Month(Now) = Month(birthday) And Day(Now) > Day(birthday)) Then
        'Then use next year.
        targetYear = Year(Now) + 1
    Else
        targetYear = Year(Now)
    End If

    DaysToBirthday = CInt(DateSerial(targetYear, Month(birthday), Day(birthday)) - Now)

End Function

注意：VBA 将 Date 变量存储为 Doubles，小数点左侧为天，右侧为时间。如果你只关心天数，你可以保存函数调用并做一个简单的减法。