VB里怎么获取周数？

[游子]

想用VB获取本周是今年的第几周？不知道代码怎么么写？请高手指教，谢谢

[yinweihong]

msgbox DatePart("ww", Now)

[yinweihong]

当然后面还有参数 ,比如每个星期,星期天是第一天等等

DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

自己查MSDN~

[vansoft]

基础知识啊.

[舉杯邀明月]

问题是：元旦不是刚好是一周的开始，那几天怎么算？

[可西哥]

照算,过了周末就算一周.

[舉杯邀明月]

[Quote=引用 5 楼 xmxoxo 的回复:]
照算,过了周末就算一周.
[/Quote]
你是楼主？
你说的作数吗　^_^


还要说明的是：你的一周的第一天是星期日，还是星期一？

[lyt183978345]

'now.DayOfYear是获得今天是今年的多少天，除7就是今天过了多少周，加一就是今天是今年的第几周

Dim zhou As Integer = (Now.DayOfYear) / 7 + 1

我试过了，行的