判断星期几

盗梦

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

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

1. 
   
2.        dim myWeekDay as integer
   
3.        myWeekDay = weekday(date)     '获取当天日期 是星期几
   
4. 
   
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

谢谢分享！！

daisyjane

谢谢

chuang0321

一直用第二种方法

盗梦

chuang0321 发表于 2013-10-9 22:39
一直用第二种方法

我也是。嘻嘻，就一句话