Office中国论坛/Access中国论坛

标题: 如何判断当前日期为第几周？？ [打印本页]

作者: dragonszr 时间: 2005-7-28 19:40
标题: 如何判断当前日期为第几周？？
如何判断当前日期为第几周？我们公司星期一为一周的第一天，而且要从第一个无跨年度的星期开始计算，怎么实现啊，帮帮我了

作者: zhengjialon 时间: 2005-7-28 21:51
这样可能要写一个函数了，提示：可以用WEEKDAY来返回某日期是星期几。

作者: hi-wzj 时间: 2005-7-29 07:34
是不是这样？

Function zhou(rq As Date) As Byte

zhou = DateDiff("w", Format(rq, "yy/1/1"), rq, vbMonday, vbFirstFullWeek) + 1

End Function

使用：zhou([日期])

[此贴子已经被作者于2005-7-28 23:35:03编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)