Question

vb输入某一天(年月日)计算这一天在本年中的天数有图最好了，感谢

Answer 1

'利用VB计算某一日期在当年中的第几天
'窗体中添加一个textbox和一个commandbutton控件
Private Sub Command1_Click()
Dim n As Integer
If IsDate(Text1.Text) Then '如果日期格式正确
    n = DateDiff("d", Year(Text1.Text) - 1 & "-12-31", Text1.Text)
    MsgBox Text1.Text & "在" & Year(Text1.Text) & "年中的第" & n & "天"
Else
    MsgBox "输入的日期 " & Text1.Text & " 格式错误"
End If
End Sub
Private Sub Form_Load()
Text1.Text = Date
End Sub