EXCEL VBA 如何通过年份得到月，日，以及当年是周几

[nangongxiaobai]

输入任意一年，自动计算出该年份的天数，月，日，以及某天是周几。
有没有一个函数输入年份后，可以返回当年有多少天？

[nangongxiaobai]

描述不好， 我重新描述一下： 我输入2020年，返回2020年总共有多少天。

[河上雨]

用提示框输入年份
Sub test()
Dim s, yearstr
yearstr = InputBox("输入年份" & Chr(10) & "输入格式" & Chr(10) & "2013", "当年有多少天")
s = DateDiff("d", yearstr & "/1/1", yearstr & "/12/31")
MsgBox s & "天"
End Sub
在指定单元格输入年份
Sub test2()
Dim s, s2
s = [a1]
If s = vbNullString Then
MsgBox "请在A1单元格输入年份"
Else
s2 = DateDiff("d", s & "/1/1", s & "/12/31")
End If
[b1] = s2
End Sub