access里日期格式是2012-1-19，怎么让日期转换成周次，显示wk03?

Posted 2023-03-27

参考技术A Private Sub Command1_Click()
date1 = CDate(Text1.Text)
date0 = Year(date1) & "/01/01"
ww = DateDiff("ww", date0, date1) + 1
gzq = MsgBox(date1 & " 是" & Year(date1) & "年 第" & ww & "周 的第 " & Weekday(date1) & " 天", , "日期转换为周")
End Sub 参考技术B 在C#语言里的话，利用DateTime类有相应的函数追问

用VB 的话具体怎么写？

参考技术C 你的意思是把日期转成对应的星期几吗? 用Weekday试试追问

不是，比如2012-1-19是2012年的第3周里的日子，就显示wk03

追答

说明白了就很简单了,你可以用datediff这个函数来做,
比如: DateDiff("ww", #1/1/2012#, #1/19/2012#) 这个就返回2,表示是第二周
第二个参数是开始的时间,第三个参数是结束的时间.返回的是这两个时间经过的周数
具体可以了解一下datediff这个函数

本回答被提问者采纳