0

早上好，

我正在使用日历表单控件来获取用户选择的日期和日期范围。在日历单击事件中，我刷新表单以向用户显示选定的开始和结束日期。

作为刷新的一部分，我更新了一个文本字段以显示工作日和日期：

txtStartDate.Text = WeekdayName(Weekday(startDate)) + " " + startDate

但是，我得到的工作日是 1 天（星期二显示为星期一，星期一显示为星期日，星期日显示为星期六。）

为了解决这个问题，我做了以下事情：

txtStartDate.Text = WeekdayName(Weekday(startDate) - 1) + " " + startDate

这适用于周一 - 周六，但是当我在日历上选择周日时，它（事后看来很明显！）崩溃，因为它无法显示值为 -1 的日期！

我徒劳地试图找到一种方法将一周的第一天设置为星期一而不是星期日。我已经对日历控件执行了此操作，但这只会更改显示的开始日期，而不是当天的值。我尝试更改 CurrentCulture 设置：

Thread.CurrentThread.CurrentCulture = New CultureInfo("en-UK")
Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-UK")

这也不起作用。

如何在工作日（开始日期）中将星期一设置为第 0 天？

4

2 回答 2

3

问题似乎是Weekday默认为 Sunday 是一周的第一天，而WeekdayName默认为当前系统默认值。

尝试这个：

txtStartDate.Text = WeekdayName(Weekday(startDate, FirstDayOfWeek.System)) + " " + startDate
于 2013-05-20T11:04:46.787 回答
0

尝试这个：

Dim thisCulture As Globalization.CultureInfo = Globalization.CultureInfo.CurrentCulture
Dim dayOfWeek As DayOfWeek = thisCulture.Calendar.GetDayOfWeek(startDate)
Dim dayName As String = thisCulture.DateTimeFormat.GetDayName(dayOfWeek)
于 2013-05-20T11:15:22.163 回答