如何设置DTPicker控件的每周格式？

Question

使用VB 6

使用DTPicker控件，因为我想每周显示

01/07/2009, 08/07/2009, 15/07/2009 so on…,

如果我选择2009年7月1日之后的日期，它应该显示08/07/2009，如果我在2009年7月8日之后选择日期，它应该显示15/07/2009。
如果我在2009年7月1日之前选择一个日期，它应该显示25/06/2009，如果我在08/07/2009之前选择一个日期，它应该显示01/07/2009

就像我想要显示日期一样。

需要VB 6代码帮助。

Answer 1

尝试此操作（DTPicker1应替换为DTPicker控件的名称）：

Private Sub DTPicker1_CloseUp()
    DTPicker1.Value = DateAdd("d", 7 - DTPicker1.DayOfWeek, DTPicker1.Value)
End Sub