一年中Excel VBA的天数

Question

我正在尝试基于日期（例如2015年）使用excel vba计算专用年份的天数。2015年应该是365天，这是非-年，而2016年应该是366天，这是a年。

例如，日期为2015年1月2日，基于2015年，我想知道2015年有几天。vba中有办法吗？

Answer 1

要么

Public Function daysinyear(lngyear As Long) As Long
    daysinyear = DateDiff("d", DateSerial(lngyear, 1, 1), DateSerial(lngyear + 1, 1, 1))
End Function