VB6每日工作周功能

我对VB6比较陌生，刚接到一个任务，我有一个日期，例如“4/12/2016”，从这个日期开始，我试图找出它是哪一天。假设今天是星期三。现在，从今天开始，我将尝试确定一周的日期[太阳开始日期-星期六结束日期。我将如何着手做这样的事情

编辑：我有一个很好的主意来确定周日和周六的日期，因为我可以简单地做一些事情

dim dateStart,dateend as date

Ex of date given to me = '4/12/2016'

Dim dateDay as variant
dateDay = whatever I get here - i'm assuming that a date will return a number for whatever day it is ???? Not sure
Select Case dateDay
case 1 -Monday?
      dateStart=dateadd("d",-1,'4/12/2016) 
      dateEnd = dateadd("d",6, '4/12/2016) 
case 2 -Tuesday?
      datestart = dateadd("d",-2,'4/12/2016)
      dateend = dateadd("d",5,'4/12/2016)

End Select

基本上对所有情况都执行SELECT语句。我的思路正确吗？

此代码：

Debug.Print Format(DatePart("w", Now), "dddd")

Debug.Print Format(Weekday(Now), "dddd")

将在即时窗口中打印一周中的任何一天。如果您想要一周中的缩短日期，请使用ddd作为格式

现在，这个代码：

Dim DOW As String
Select Case DatePart("w", Now)
    Case vbSunday
        DOW = "Sunday"
    Case vbMonday
        DOW = "Monday"
    Case vbTuesday
        DOW = "Tuesday"
    Case vbWednesday
        DOW = "Wednesday"
    Case vbThursday
        DOW = "Thursday"
    Case vbFriday
        DOW = "Friday"
    Case vbSaturday
        DOW = "Saturday"
End Select
Debug.Print DOW

将做同样的事情。但是，它向您展示了如何通过使用vbSunday、vbMonday等以编程方式计算一周中的哪一天。这将为您提供开始使用Select语句所需的内容。要使用您的示例，DatePartw，2016年4月12日计算为3，或VB星期二

VB6参考文档是隐藏的，我可能会添加它。查找格式和日期部分以熟悉其他选项

编辑：正如MarkL所指出的，在VB6中可以使用Weekday函数，我认为它不是，并且比使用DatePart少一个参数更简单。以下代码：

Debug.Print Format(DatePart("w", Now), "dddd")

Debug.Print Format(Weekday(Now), "dddd")

---

也会将一周中的任何一天打印到即时窗口。jac还在上面的评论中提供了一个指向“工作日”功能的链接。

您可以尝试下面的代码，代码将返回当天的名称

txtDateTime.Text = WeekdayName(Weekday(Now))
txtDateTime.Text = WeekdayName(Weekday(12 / 30 / 1995))
txtDateTime.Text = WeekdayName(Weekday(Date)) 

---

请参阅。请在提问之前进行研究-我从搜索vb6 dayofweek得到的第一个结果，即确切地说是您的标记，以及vb6中用于工作日函数的vb6 URL，@JonSkeet该工作日函数在vb6中不可用。请参阅下面我的答案。不幸的是，Microsoft尽最大努力将所有vb6搜索重新路由到VB.Net documentation.@BobRodes:Weekday函数在VB6中不可用。嗯，什么？当然可以。Jac在上面的评论中提供了VB6文档url。VB6和vb.net一样，还提供了WeekdayName函数，该函数将以文本形式返回星期几，当然，如果以文本形式返回星期几，则答案中不需要大小写代码。@MarkL和他我想他真的弄错了什么。我应该知道得更清楚。LOLYah我碰巧忘记了这篇文章，所以当我读到你的评论时，我不确定你在说什么，因为它对我有用。谢谢！