以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何返回 Date 的周数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6899)

--  作者:古奇
--  发布时间:2010/5/1 13:59:00
--  如何返回 Date 的周数
如何返回 Date 的周数 在Date属性里没有介绍,
--  作者:yangming
--  发布时间:2010/5/1 16:51:00
--  
DateDiff(interval,date1,date2)
返回两个日期之间的间隔。
Interval 包含以下设置:
yyyy 年
q    季度
m    月
y    某年的某一天
d    天
w    工作日
ww  
h    时
n    分
s    秒
--  作者:古奇
--  发布时间:2010/5/1 21:04:00
--  
谢谢杨版,这个是放在表达式里的,我想要的是 .year .month 这类型的。。
--  作者:yangming
--  发布时间:2010/5/1 21:09:00
--  

利用DayOfWeek属性,可以知道给定的日期是星期几,例如:

Dim d As Date = #10/31/2008#
Output.Show(d.DayOfWeek)
\'显示5

如果是星期天,返回值是0,因为星期天被认为是每的第一天。


--  作者:程兴刚
--  发布时间:2010/5/1 23:37:00
--  
Dim d1 As Date = date.today()
Dim d2 As Date = new date(d1.year,1,1)
Output.show(format(d1,"yyyy") & "年第" & DateDiff("ww",d2,d1)+1 & "周  )
[此贴子已经被作者于2010-5-1 23:39:47编辑过]

--  作者:古奇
--  发布时间:2010/5/2 20:34:00
--  
谢谢杨版、程版,程版这个可以解决问题了。。。
--  作者:程兴刚
--  发布时间:2010/5/2 20:53:00
--  
以下是引用古奇在2010-5-2 20:34:00的发言:
谢谢杨版、程版,程版这个可以解决问题了。。。


     呵呵,其实杨版在2楼就告诉您了,我只是将我的现成的给您改了一个示例。