Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:计算某日期是当年的第几个周,有函数或方法没?

1楼
13568406997 发表于:2024/5/24 15:01:00
如题
2楼
y2287958 发表于:2024/5/24 15:24:00
Dim calCommon  As New System.Globalization.GregorianCalendar() 
Dim dt As Date = Date.Today
Return calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
3楼
13568406997 发表于:2024/5/24 15:28:00
谢谢

4楼
foxtablefanse 发表于:2024/5/24 15:33:00
MessageBox.show( DateDiff("ww", CDate(year(Date.Today) & "-01-01"), Date.Today))

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
[此贴子已经被作者于2024/5/24 15:42:36编辑过]
5楼
有点蓝 发表于:2024/5/24 15:52:00
4楼测试了一下,会少一周。2楼是正确的,或者下面也可以

Output.Show(Datepart("ww", Date.Today))
6楼
foxtablefanse 发表于:2024/5/24 16:28:00
楼上正解,我这个是“间隔”多少周,与第一天“间隔”20周,
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.