如何根据一个日期，计算出那天是星期几？（急）

Question

如何根据一个日期，计算出那天是星期几？ 比如 输入一个 
    20051109     返回一个3  （表示星期三）
    20051108     返回一个2   （表示星期二）
    20051110     返回一个4

Answer 1

Weekday 函数vbSunday 1 Sunday (default) 
vbMonday 2 Monday 
vbTuesday 3 Tuesday 
vbWednesday 4 Wednesday 
vbThursday 5 Thursday 
vbFriday 6 Friday 
vbSaturday 7 Saturday 

Answer 2

if weekday(2005-11-10)=1 then
  星期日
else.....

Answer 3

日期函数组--------------------------------------------------------------------------------    ※假设今天是 1999年1月2日
    ●Date
    MyDate = Date
    MyDate = 01/02/99     ●Date$
    MyDate = Date$
    MyDate = 1999/01/02     ●Now
    MyDate = Now
    MyDate = 01/02/99 10:38:05 AM     ●Year(Date)
    MyDate = Year(Date)
    MyDate = 1999     ●Month(Date)
    MyDate = Month(Date)
    MyDate = 1     ●Day(Date)
    MyDate = Day(Date)
    MyDate = 2     ●WeekDay(Date)
    MyDate = WeekDay(Date)
    MyDate = 3
    WeekDay传回值
    1 = 星期日
    2 = 星期一
    3 = 星期二
    4 = 星期三
    5 = 星期四
    6 = 星期五
    7 = 星期六     ●CDate(数值)
    MyDate = CDate(-1000000)
    MyDate = 03/16/1626
    MyDate = CDate(-1)
    MyDate = 12/29/1989
    MyDate = CDate(0)
    MyDate = 12:00:00 AM
    MyDate = CDate(1)
    MyDate = 12/31/1989
    MyDate = CDate(2)
    MyDate = 01/01/1900
    MyDate = CDate(3)
    MyDate = 01/02/1900
    MyDate = CDate(100)
    MyDate = 04/09/1900
    MyDate = CDate(36162)
    MyDate = 01/02/99 

Answer 4

有那么复杂吗？
Text1.Text=WeekdayName(Weekday("2005/11/11"))
搞定

Answer 5

WeekdayName函数
      描述返回一个字符串，表示一星期中的某天。语法WeekdayName(weekday, abbreviate, firstdayofweek)WeekdayName函数语法有如下几部分：部分 描述 
weekday 必需的。数字值，表示一星期中的某天。该数字值要依赖于firstdayofweek设置中的设置值来决定。 
abbreviate 可选的。Boolean值，表示星期的名称是否被缩写。如果忽略该值，缺省值为False，表明星期的名称不能被缩写。 
firstdayofweek 可选的。数字值，表示一星期中第一天。关于其值，请参阅“设置值”部分。 
设置值firstdayofweek参数值如下：常数 值 描述 
vbUseSystem 0 使用本国语言支持 (NLS) API设置值。 
vbSunday 1 星期日（缺省）。 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六