| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 日期计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19918) |
| -- 作者：rjh4078 -- 发布时间：2012/5/24 23:00:00 -- 日期计算问题 请问有没有现成的函数可以取得当前日期处于第多少周？ 如果用代码要怎么计算呢？ 我试着用这个思路写了下代码 发现得不到结果 取得当前日期 返回当前日期所在年 取得该年元旦 判断该天的是星期几 用当期日期减去元旦得到天数 用天数差除以7得到周数 如果元旦那天不是周日 就用当前周数减去1 否则就直接用得到的结果作为周数
思路应该没有问题 但是计算的时候发现数据类型老是错 请教高手指点一下 有没有简单点的方法
|
| -- 作者：don -- 发布时间：2012/5/24 23:18:00 -- 百度一下可知: |
| -- 作者：程兴刚 -- 发布时间：2012/5/25 0:24:00 -- Dim T As Date = date.Now Dim X As Integer X = DateDiff(DateInterval.WeekOfYear, New Date(T.Year, 1, 1), T) + 1 |
| -- 作者：rjh4078 -- 发布时间：2012/5/25 12:08:00 -- 非常感谢 |