求高手用VB编写下题:给出年，月，日，求该日是该年的第几天

只要1行代码就行了呵..

Private Sub Command1_Click()
Dim y%, m%, d%
y = Val(InputBox("请输入年份!"))
m = Val(InputBox("请输入月份!"))
d = Val(InputBox("请输入日"))
MsgBox "这是今年的第" & DateDiff("d", DateSerial(y, 1, 1), DateSerial(y, m, d)) + 1 & "天!"
End Sub

Private Sub Command1_Click()
MsgBox "今天是" & getDayInDay(Date) & "天", , ""

End Sub

Public Function getDayInDay(myDate As Date) As Integer
On Error GoTo ex
getDayInDay = DateDiff("D", DatePart("yyyy", myDate) & "-1-1", myDate)
getDayInDay = getDayInDay + 1
Exit Function
ex:
getDayInDay = -1

End Function

-------------

自己动手，参考一下这个函数，把你的日期和该年度一月一号相减

DateDiff 函数

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofw