有这样一个例子：
就是说假设有３天，但是这３天里不能包含星期天，这样的语句应该怎么编写，谢谢！！！请指教！！
简单的说就是３天里去掉星期天！！！

Dim x
x = Weekday(Now)
Select Case x
    Case 1  '星期日
      Print "这三天为：" & "星期一、星期二、星期三"
    Case 2  '星期一
      Print "这三天为：" & "星期一、星期二、星期三"
    Case 3  '星期二
      Print "这三天为：" & "星期二、星期三、星期四"
    Case 4  '星期三
      Print "这三天为：" & "星期三、星期四、星期五"
    Case 5  '星期四
      Print "这三天为：" & "星期四、星期五、星期六"
    Case 6  '星期五
      Print "这三天为：" & "星期五、星期六、星期一"
    Case 7  '星期六
      Print "这三天为：" & "星期六、星期一、星期二"
    End Select

不明白你要的结果
是一个月里面设三天不能出现星期日,还是一个星期里面设三天不能有星期日

谢谢,我的意思是,假设有个日期,大的那个日期减小的那个日期得到的天数要小于3天,但这3天里面不能包括星期天,也就是要除去这3天里可能出现的星期,那2个日期是一个月中随机的,不定!!!

你是要两个随机的日期:

还是不怎么明白,你自己写个大概的代码发上来我们看看..

Dim Myresult
    Myresult = 日期1 - 日期2 < 3     '返回要得到的日期3
    If 日期3 = 0 Then
    日期3.Value = ""
    ElseIf Weekday(日期3) = 1 Then
    日期3 = 日期3 - 1
    End If
这里我就不定义了,大概就是这样的,你们帮忙看看,也许这里面还有错!!!

'''''''''''''''''''
'照你意思写了段代码,两个日期的生成由你处理,下面的代码希望符合你的要求
'''''''''''''''''''
Dim date1 As Date
Dim date2 As Date
Dim date3 As String

Dim intDay As Integer

date1 = "2008/4/16"
date2 = "2008/4/18"
intDay = Abs(DateDiff("d", date1, date2))
If intDay < 3 Then
   If intDay = 0 Then
      date3 = ""
   ElseIf Weekday(CDate(Year(date1) & "/" & Month(date1) & "/" & intDay)) = vbSunday Then
      date3 = DateAdd("d", -1, CDate(Year(date1) & "/" & Month(date1) & "/" & intDay))
   Else
     date3 = CDate(Year(date1) & "/" & Month(date1) & "/" & intDay)
   End If
End If

[[it] 本帖最后由 zougonghua 于 2008-5-5 15:41 编辑 [/it]]

谢谢!!!虽然跟我所需要的有点出入,但我已经弄清楚了!!!