Question

VB 输入年月日求是这一年的第几天

注意要区分闰年

Answer 1

Private Sub Command1_Click()
Dim mydate As Date, Date1 As String
Dim mydate2
mydate = CDate(InputBox("请输入年月日(用-分开):", "输入", Date))
mydate2 = CDate(Year(mydate) & "-1-1")
MsgBox mydate & "是这一年的第" & DateDiff("d", mydate2, mydate) + 1 & "天!", vbOKOnly + 48, "信息"
End Sub

Answer 2

Private Sub Command1_Click()
Dim Ys As Integer, Ms As Integer, Ds As Integer, Days
Ys = Val(InputBox("输入年"))
Ms = Val(InputBox("输入月"))
Ds = Val(InputBox("输入日"))

Days = DatePart("y", Ys & "-" & Ms & "-" & Ds)
Print "当年的第" & Days & "天"
End Sub

Answer 3

'很简单的
days = DatePart("y", Date)

Answer 4

datediff

我服你了