输入一个日期（年、月、日），计算从当年1月1日起到这一天的天数

请用VB来写

建一个text框
建一个button
建一个label
在button点圆和击事件里写：
dim a as date

if isdate(text1.text) then
a=cdate("1/1/"+str(year(cdate(text1.text))))
label1.caption="相距"+str(cdate(text1.text)-a)+"天"
else
label1.caption="这不是一个时间橘游盯"
end if

在text按mm/dd/磨誉yyyy输入就可以了。