vb6.0 判断星期,获取时间，想用一个时间控件DTPicker1，实现以下功能：
vb6.0 判断星期,获取时间，想用一个时间控件DTPicker1，实现以下功能：
1、如果控件选择的是 星期五或者星期六或者星期日，则textbox1的时间为 上周五的日期，textbox2的时间为 本周五的日期；
2、如果选择时间是星期一、星期二、星期三或者星期四，则textbox1时间显示为 往前两个周五的日期，而textbox2显示时间为 往前一周星期五的日期。
应该怎么写这段代码？？？
[解决办法]
Select Case Weekday(myDate)
Case 2
Text2 = myDate - 3
Text1 = myDate - 10
Case 3
Text2 = myDate - 4
Text1 = myDate - 11
Case 4
Text2 = myDate - 5
Text1 = myDate - 12
Case 5
Text2 = myDate - 6
Text1 = myDate - 13
Case 6
Text2 = myDate - 1
Text1 = myDate - 8
Case 7
Text1 = myDate - 2
Text2 = myDate - 9
Case 1
Text1 = myDate - 3
Text2 = myDate - 10
End Select
