Private Sub Command1_Click()
Dim d As Date, y As Integer
d = CDate(InputBox("请输入年月日，格式：yyyy-mm-dd"))
y = Year(d)
MsgBox Format(d, "Long Date") & "是" & y & "年的第" & DateDiff("d", DateSerial(y, 1, 1), d) & "天"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024