| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 571 人关注过本帖
标题:紧急求助!!!!
只看楼主 加入收藏
xye1129
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-3-21
收藏
 问题点数:0 回复次数:8 
紧急求助!!!!
有这样一个例子:
就是说假设有3天,但是这3天里不能包含星期天,这样的语句应该怎么编写,谢谢!!!请指教!!
简单的说就是3天里去掉星期天!!!
搜索更多相关主题的帖子: 语句 例子 编写 指教 
2008-05-05 10:40
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
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
2008-05-05 11:02
XieLi
Rank: 1
等 级:新手上路
威 望:1
帖 子:762
专家分:0
注 册:2007-7-24
收藏
得分:0 
不明白你要的结果
是一个月里面设三天不能出现星期日,还是一个星期里面设三天不能有星期日

拥有蓝天的白云,拥有你的我.
2008-05-05 12:03
xye1129
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-3-21
收藏
得分:0 
谢谢,我的意思是,假设有个日期,大的那个日期减小的那个日期得到的天数要小于3天,但这3天里面不能包括星期天,也就是要除去这3天里可能出现的星期,那2个日期是一个月中随机的,不定!!!
2008-05-05 12:17
XieLi
Rank: 1
等 级:新手上路
威 望:1
帖 子:762
专家分:0
注 册:2007-7-24
收藏
得分:0 
你是要两个随机的日期:

拥有蓝天的白云,拥有你的我.
2008-05-05 13:41
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
还是不怎么明白,你自己写个大概的代码发上来我们看看..
2008-05-05 13:49
xye1129
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-3-21
收藏
得分:0 
Dim Myresult
    Myresult = 日期1 - 日期2 < 3     '返回要得到的日期3
    If 日期3 = 0 Then
    日期3.Value = ""
    ElseIf Weekday(日期3) = 1 Then
    日期3 = 日期3 - 1
    End If
这里我就不定义了,大概就是这样的,你们帮忙看看,也许这里面还有错!!!
2008-05-05 14:10
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
'''''''''''''''''''
'照你意思写了段代码,两个日期的生成由你处理,下面的代码希望符合你的要求
'''''''''''''''''''
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]]
2008-05-05 15:35
xye1129
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-3-21
收藏
得分:0 
谢谢!!!虽然跟我所需要的有点出入,但我已经弄清楚了!!!
2008-05-05 16:25
快速回复:紧急求助!!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012646 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved