如何得知当天是星期几

Question

如 ：今天是2003-8-1 星期五
     那 2003-9-4  星期几
    能知道吗？

Answer 1

Weekday 函数示例
本示例使用 Weekday 函数将日期转换为星期几。Dim MyDate, MyWeekDay
MyDate = #February 12, 1969#   ' 指定一日期。
MyWeekDay = Weekday(MyDate)   ' MyWeekDay 的值为 4，因为 MyDate 是星期四。

Answer 2

使用WEEKDAY函数,返回的是一个代表星期几的一个INTEGER值,返回值定义如下:
常数 值 描述 
vbUseSystem 0 使用 NLS API 设置。 
VbSunday 1 星期日（缺省值） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 

Answer 3

Private Sub Command1_Click()
    MsgBox WeekdayName(Weekday(Date, vbSunday))
End Sub

Answer 4

给你个函数： Format(Now,"aaaaa")结贴给分.....................

Answer 5

操作日期使用函数MONTH(),DAY(),WEEKDAY(),和YEAR(),你可以把一个日期分割成更小的部分。所有这些函数都以一个日期表达式作为参数，并返回一个数字。这里有一个如何使用这些函数的例子：The Month is :<%=MONTH(DATE)%><BR>The Day is : <%=DAY(DATE)%><BR>The weekday is :<%=WEEKDAY(DATE)%><BR>The year is :<%=YEAR(DATE)%>假设当前日期是1997年8月9日，星期三。如果你把上面的例子包含在一个ASP网页中，在浏览器中将显示如下的文字：The Month is : 7The Day is : 9The weekday is : 4The year is : 1997注意函数weekday()假定一个星期的第一天是星期日。如果你想把星期一作为一周的第一天，你可以使用如下的语句：The weekday is :<%=weekday(DATE,vbWednesday)%>你可以把任何一天作为一周的第一天。要指定一周的第一天是星期几，只要用vbSunday,vbMonday,vbTusday,vbWednesday,vbThurday,vbFriday或vbSaturday代替函数WEEKDAY（）的第二个参数即可。你不单可以用函数DATE作为这些函数的参数。你也可以提供一个日期字符串或者一个日期常数作为参数，如下例所示：The weekday is :<%=WEEKDAY(#12/25/2000#)%>The weekday is :<%=WEEKDAY(“12-25-2000”)%>这两个函数都返回2000年圣诞节这一天是星期几。（这也许使你不习惯：返回值是2，代表星期一。）表达式#12/25/2000#是一个日期常数，日期常数总是括在字符’＃’中。表达式”12-25-2000”是一个日期字符串。用这两种方法为函数提供一个日期都是可行的。要以更加易读的形式返回月份和星期几，你可以使用函数WEEKDAYNAME（）或MONTHNAME（）。这两个函数返回的是字符串。这里有一个使用这两个函数的例子：The month is :<%=MONTHNAME(MONTH(DATE))%>The weekday is:<%=WEEKDAYNAME(WEEKDAY(DATE))%>假设当前日期是八月，星期三。在这种情况下，第一个函数将返回字符串July，第二个函数返回字符串Wednesday。你可以把1到12之间的任何整数作为函数MONTHNAME（）的参数，你可以把1到7之间的任何整数作为函数WEEKDAYNAME（）的参数。在缺省情况下，这两个函数不会缩写返回的字符串。函数MONTHNAME（）返回的是July而不是Jul，函数WEEKDAYNAME()返回的是Wednesday而不是Wed。然而，通过指定第二个参数为TRUE，你可以强制这两个函数返回缩写的字符串。（TRUE表示要缩写，FALSE表示不缩写。）如下例所示：The month is: <%=MONTHNAME(MONTH(DATE),TRUE)%>The weekday is: <%=WEEKDAYNAME(WEEKDAY(DATE),TRUE)%>在vb中一样吗？呵呵

Answer 6

Dim WeekName(7) As String
    WeekName(1) = "日"
    WeekName(2) = "一"
    WeekName(3) = "二"
    WeekName(4) = "三"
    WeekName(5) = "四"
    WeekName(6) = "五"
    WeekName(7) = "六"
    Text1.Text = "星期" & WeekName(Weekday("2003-9-4"))