Question

假设我输入209。它必须给我7月28日。我可以从日期中得到天数，但相反。有人可以帮我吗？

Answer 1

也许这段代码会帮助您

Sub Test()
Dim x
x = 209

MsgBox DateAdd("d", x - 1, "2018/1/1")
End Sub

Answer 2

只需将天数添加到去年的最后一天。

=209 +"12/31/2017"

Answer 3

以下

=DATE(2018,1,209)

您可以采用其他方式设置返回日期的格式，例如

=TEXT(DATE(2018,1,209),"Mmm dd yyyy")

VBA和UDF：

Option Explicit
Public Sub test()
    Debug.Print GetDate(209)
End Sub

Public Function GetDate(ByVal daynumber As Long) As String
     GetDate = Format$(DateSerial(Year(Date), 1, daynumber), "Mmm dd yyyy")
End Function

如何在VBA中使用年份的天数查找日期？

3 个答案: