vb6.0显示星期的函数

select case Weekday(Date, 2)

case 1

msgbox "今天是星期一"

case 2

msgbox "今天是星期二"

case 3

msgbox "今天是星期三"

case 4

msgbox "今天是星期四"

case 5

msgbox "今天是星期五"

case 6

msgbox "今天是星期六"

case 7

msgbox "今天是星期日"

end select

这里的“某一周”是有歧义的：

一种可能是某日期所在的周

第二种是某年的第几周。这还有歧义。因为某年的第一周，可能开始于上一年，同时这一周也是上一年的最后一周，会重复计算。我们这里假设“不管是否重复计算”

第三种是每周从星期几开始。我们这里假设“从星期一开始”。

下面分别是输出“某日期所在的周始终日期”、“某年某周始终日期”、“某年各周始终日期”的代码！

如果每周从星期日开始，将vbMonday替换为vbSunday即可。

'某日期所在的周始终日期

Private Sub Command3_Click()

Dim dt As Date

Dim wd As Integer

dt = InputBox("请输入一个日期（Date格式）：", "输入日期", Date)

wd = Weekday(dt, vbMonday) '某日是星期几，周一为第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的开始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的开始日期

Text1Text = "当前日期所在的周起止日期："

Text1Text = Text1Text & vbNewLine

Text1Text = Text1Text & vbNewLine & "每周从星期一开始"

Text1Text = Text1Text & vbNewLine & firstDay & vbTab & endDay

wd = Weekday(dt, vbSunday) '某日是星期几，周日为第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的开始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的开始日期

Text1Text = Text1Text & vbNewLine

Text1Text = Text1Text & vbNewLine & "每周从星期日开始"

Text1Text = Text1Text & vbNewLine & firstDay & vbTab & endDay

End Sub

'某年某周始终日期

Private Sub Command4_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim wd As Integer

y = InputBox("请输入年份：", "输入年份", Year(Date))

dt = DateSerial(y, 1, 1)

w = InputBox("请输入周数：", "第几周", "")

dt = DateAdd("ww", (w - 1), dt)

wd = Weekday(dt, vbMonday) '某日是星期几，周一为第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的开始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的开始日期

Text1Text = "当前日期所在的周起止日期："

Text1Text = Text1Text & vbNewLine

Text1Text = Text1Text & vbNewLine & "每周从星期一开始"

Text1Text = Text1Text & vbNewLine & firstDay & vbTab & endDay

End Sub

'某年各周始终日期

Private Sub Command2_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim dte As Date

Dim wd As Integer

y = InputBox("请输入年份：", "输入年份", Year(Date))

dt = DateSerial(y, 1, 1)

dte = DateAdd("yyyy", 1, dt) - 1 '某年最后一天

wd = Weekday(dt, vbMonday) '某日是星期几，周一为第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的开始日期

endDay = firstDay + 6 '本周的开始日期

Text1Text = "当前日期所在的周起止日期："

Text1Text = Text1Text & vbNewLine & "(每周从星期一开始)"

Text1Text = Text1Text & vbNewLine

Text1Text = Text1Text & vbNewLine & firstDay & vbTab & endDay

Do While endDay < dte

w = w + 1

firstDay = firstDay + 7

endDay = firstDay + 6

Text1Text = Text1Text & vbNewLine & firstDay & vbTab & endDay

Loop

End Sub

VB获取星期用WeekDay函数，怎么用看MSDN吧，那比我权威，下面是部分内容：

返回一个 Integer 值，该值包含表示周中某一天的数。

Public Function Weekday( _

ByVal DateValue As DateTime, _

Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeekSunday _

) As Integer

参数

DateValue

必选项。所要确定为该周某一天的 Date 值。

DayOfWeek

可选项。选自 FirstDayOfWeek 枚举的值，该枚举用于指定周的第一天。若未指定，则使用 FirstDayOfWeekSunday。

设置

DayOfWeek 参数可以有以下设置之一。

枚举值 值 说明

FirstDayOfWeekSystem 0 系统设置中指定的周的第一天

FirstDayOfWeekSunday 1 星期日（默认）

FirstDayOfWeekMonday 2 星期一（依照 ISO 8601 标准第 317 节)

FirstDayOfWeekTuesday 3 星期二

FirstDayOfWeekWednesday 4 星期三

FirstDayOfWeekThursday 5 星期四

FirstDayOfWeekFriday 6 星期五

FirstDayOfWeekSaturday 7 星期六

异常/错误

异常类型 错误号 条件

ArgumentException 5 DayOfWeek 小于 0 或大于 7。

备注

Weekday 函数所返回的值与 FirstDayOfWeek 枚举的值相对应；即 1 表示星期天，7 表示星期六。

若 DayOfWeek 小于 0 或大于 7，则发生 ArgumentException 错误。

注意 Weekday 使用取自 SystemGlobalization 命名空间中 CultureInfo 类 CurrentCulture 属性的当前日历设置。默认 CurrentCulture 值由“控制面板”设置决定。

示例

本示例使用 Weekday 函数从指定日期中获取星期几部分。

Dim MyDate As Date

Dim MyWeekDay As Integer

MyDate = #2/12/1969# ' Assign a date

MyWeekDay = Weekday(MyDate) ' MyWeekDay contains 4 because

' MyDate represents a Wednesday

以上就是关于vb6.0显示星期的函数全部的内容，包括:vb6.0显示星期的函数、VB6.0 要得到某一周是从哪一天开始的,哪一天结束的、VB中怎么显示今天的日期 星期和 时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！