求解一个问题，题目大概意思是输入日期得知是一年中的第几天。有人懂框框里为啥这么填吗

Dim y As Integer
Dim m As Integer
Dim d As Integer
'Text1.Text = Year(Date)
'Text2.Text = Month(Date)
'Text3.Text = Day(Date)
y = Val(Text1.Text)
m = Val(Text2.Text)
d = Val(Text3.Text)
Debug.Print "今天是一年中的第" & DateDiff("d", DateSerial(y, 1, 1), DateSerial(y, m, d)) & "天"
可以试试DateDiff函数

楼上两位都建议用更方便的日期函数解决问题，就是不分析楼主的代码
这里数组a很明显是每个月的天数，数组b则是到某个月为止所有月份的总天数，实际上这就是个求和的过程，把m月之前的m-1个月的天数计算出来
不过，这里其实没有用数组b的必要，用一个求和变量s，循环到m-1就达到目的了

谢谢各位，后面弄懂了

一句简单代码就搞定的事，非要搞那么大一串代码。

debug.print Format$(Date$, "今天是一年中的第y天")