VB 输入一个日期，计算给定的日期是那一年的第几天，(1月1日为第1天，非闰年的12月31日为第365天)

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:08:30

你要的程序代码来了,已经验证OK!!!

Private Sub Command1_Click()
Dim daycount
restartinput: daycount = InputBox("请输入一个日期(yyyy-mm-dd):", "输入提示")
If Not IsDate(daycount) Then
GoTo restartinput
End If
MsgBox daycount & "是" &Year(daycount)& "年的第" & DatePart("Y", daycount)& "天!"
End Sub

我也是VB爱好者,以后共同学习!!!

MsgBox DateDiff("d", year(输入的日期)& "-1-1", 输入的日期)