请问如何用vb计算当日是本年中的第多少天！

Question

请问如何用vb计算当日是本年中的第多少天！
望提供源代码。
我的email:[email protected]

Answer 1

firstdate=year(now()) & "-01-01"
days=datediff("d",firstdate,now()) + 1

Answer 2

now - CDate("01/01" & year(now) )用当前日期，减去当年的第一天就可以了。

Answer 3

对了，用 Date - CDate("01/01" & year(Date)) 可能更好吧。

Answer 4

MsgBox DateDiff("d", CDate(Year(Date) & "-01-01"), Date)