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

使用vb6

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

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

如果我选择的日期在2009年7月1日之后，则应显示2009年7月8日；如果我选择的日期在2009年7月8日之后，则应显示2009年7月15日。
如果我选择的日期在2009年7月1日之前，则应显示2009年6月25日；如果我选择的日期在2009年7月8日之前，则应显示2009年7月1日

像这样，我想显示一个日期

需要VB 6代码帮助。

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

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