如何得到系统的星期？

Question

如何得到系统的星期？

Answer 1

Dim MyDate, MyWeekDay
MyDate = #4/11/2005# - 1         ' 指定日期。
MyWeekDay = Weekday(MyDate)
Me.Caption = MyWeekDay

Answer 2

weekday(date,vbMonday)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 函数可以返回以下诸值(firstdayofweek=VbSunday)：常数 值 描述 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 

Answer 3

先使用 Today 属性返回系统当前日期，
Dim MyDate As Date
MyDate = Today   ' Return current system date.然后再利用WeekDay函数得到系统的星期，
Dim MyWeekDay As Integer
MyWeekDay = Weekday(MyDate)WeekDay函数返回一个 Integer 值，该值包含表示周中某一天的数，例如返回5就代表星期四。

Answer 4

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 函数可以返回以下诸值(firstdayofweek=VbSunday)：常数 值 描述 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六