一年中天数转换为日期如第1天1月1日第2天1月2日第n天日

Question

一年中天数转换为日期
如第1天 1月1日
第2天 1月2日
第n天 日

Answer 1

Private Sub Command1_Click()
Dim a As Date
a = #1/1/2009#
For i = 1 To 365
Print "第" & i & "天 " & a
a = DateAdd("d",1,a)
Next
End Sub
Private Sub Command2_Click()
Dim a As Date
a = #1/1/2009#
x = Val(InputBox(""))
a = DateAdd("d",x - 1,a)
Print a
End Sub