vb.net 如何根据星期取日期，在线等

[xiaoqi7456]

我想让textbox默认 本周星期1的年月日。 怎么实现？

[hzybc]

Dim xN As Int16 xN = 1 - Weekday(Today, FirstDayOfWeek.Monday) TextBox1.Text = DateAdd(DateInterval.Day, xN, Today)

[evan_zheng0663]

Dim i As Integer i = 1 - Today.DayOfWeek 'Today.DayOfWeek=本周的第几天 TextBox1.Text = Today.AddDays(i).ToShortDateString()