7,785
社区成员




DateDiff("ww", dt, Date())
Private Sub Command1_Click()
Dim y As Integer, w As Integer, dt As Date
y = CInt(Mid(Text1.Text, 5, 2))
w = CInt(Mid(Text1.Text, 7, 2))
dt = DateAdd("ww", w - 1, DateSerial(y, 1, 1)) '1月1日为第一周
MsgBox dt
End Sub