以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一年中的第100天是几月几号？如何写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83254)
--  作者：111yangguojun
--  发布时间：2016/4/5 13:28:00
--  [求助]一年中的第100天是几月几号？如何写？
一年中的第100天是几月几号？如何写？

Dim d As Date = #12/31/2008#
Output.Show(d.DayOfYear)

上述代码执行的结果是366.


如何反过来判断  一年中的第366天是  几月几号
--  作者：大红袍
--  发布时间：2016/4/5 14:51:00
--  
dim y as integer = 2016
Dim n As Integer = 20
Dim d As Date = new Date(y, 1, 1)
d = d.AddDays(20)
msgbox(d)