如何根据日期计算出一年中的第几天？

[zjlsyxf]

[zhhrlzm]

Dim i As Integer

i = DateDiff("d", CDate("2001 - 1 - 1 0:00:00"), CDate("2001 - 2- 23 0:00:00"))

[gooyan]

同意楼上的兄弟

[zhhrlzm]

Dim i As Integer

i = DateDiff("d", CDate("2001 - 1 - 1 0:00:00"), CDate("2001 - 2- 23 0:00:00")) +1

i 为第几天
第一个参数为一年的一天
第一个参数为你要查询的日期

[DullMan]

? DatePart("y",date())