高分请教算法问题

Question

Weekday 函数
返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
常数        值   描述 
vbSunday     1   星期日 
vbMonday     2   星期一 
vbTuesday    3   星期二 
vbWednesday  4   星期三 
vbThursday   5   星期四 
vbFriday     6    星期五 
vbSaturday    7   星期六  Private Sub Form_Load()
    b= Weekday (Date) End Sub

Answer 1

Weekday 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。语法Weekday(date, [firstdayofweek])Weekday 函数语法有下列的命名参数：部分 描述 
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 
Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。 
设置firstdayofweek 参数有以下设定值：常数 值 描述 
vbUseSystem 0 使用 NLS API 设置。 
VbSunday 1 星期日（缺省值） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 
返回值Weekday 函数可以返回以下诸值：常数 值 描述 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 

Answer 2

Debug.Print Weekday("2003-1-7", vbSunday)
这个表示2003-1-7这一天
vbSunday从星期天开始算
Debug.Print Weekday("2003-1-7", vbSunday)
得到是第几天

Answer 3

Private Sub Form_Load()
 Dim B As Integer
 
  B = Weekday(Date)
 Select Case B
  Case 1
     MsgBox "今天是星期日"
  Case 2
     MsgBox "今天是星期一"
  Case 3
     MsgBox "今天是星期二"
  Case 4
     MsgBox "今天是星期三"
  Case 5
     MsgBox "今天是星期四"
  Case 6
     MsgBox "今天是星期五"
  Case 7
     MsgBox "今天是星期六"
  End Select
End Sub