Office中国论坛/Access中国论坛

标题: 判断星期几 [打印本页]
作者: 盗梦    时间: 2013-6-13 15:52
标题: 判断星期几
本帖最后由 盗梦 于 2013-6-13 15:55 编辑

[VBA]判断星期几
以判断今天日期是星期几为例。获取今天日期函数是 Date()

方法一: weekday()函数 + select分支结构

  2.        dim myWeekDay as integer
  3.        myWeekDay = weekday(date)     '获取当天日期 是星期几

  5.       select case myWeekDay
  6.        case  1
  7.              msgbox  "今天是 " & date & " 星期日"
  8.        case  2
  9.              msgbox  "今天是 " & date & " 星期一"
  10.        case  3
  11.               msgbox  "今天是 " & date & " 星期二"
  12.       case  4
  13.               msgbox  "今天是 " & date & " 星期三"
  14.       case  5
  15.              msgbox  "今天是 " & date & " 星期四"
  16.       case  6
  17.               msgbox  "今天是 " & date & " 星期五"
  18.       case  7
  19.               msgbox  "今天是 " & date & " 星期六"
  20.       end select
复制代码
方法二: 使用weekdayname()函数
       其实, 如果知道这个函数,就不用像前面那么麻烦了
  1.         msgbox  weekdayname(weekday(date))    '显示今天是星期几
复制代码
作者: admin    时间: 2013-6-14 09:25
谢谢分享！！
作者: daisyjane    时间: 2013-10-8 09:38
谢谢
作者: chuang0321    时间: 2013-10-9 22:39
一直用第二种方法
作者: 盗梦    时间: 2013-10-12 10:40
chuang0321 发表于 2013-10-9 22:39
一直用第二种方法

我也是。嘻嘻，就一句话



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3