窗体上有3个按钮，单击“今天”按钮，显示今天的日期、星期几、是工作日还是休息日；单击“昨天”按钮，

Question

窗体上有3个按钮，单击“今天”按钮，显示今天的日期、星期几、是工作日还是休息日；单击“昨天”按钮，显示昨天的日期、星期几、是工作日还是休息日；单击“上月的今天”按钮，显示上个月的今天的日期、星期几、是工作日还是休息日。高手请帮帮忙，我在编写过程中有些地方走不通了！（vb设计问题）

Answer 1

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d1 As Date
Dim strweekday As String
strweekday = WeekdayName(Weekday(d1))
d1 = Today
Dim year1, month1, day1 As String
year1 = Year(d1)
month1 = Month(d1)
day1 = Microsoft.VisualBasic.Day(d1)
If Weekday(d1) > 1 And Weekday(d1) < 6 Then
Label1.Text = year1 & "/" & month1 & "/" & day1 & strweekday & " 工作日"
Else : Label1.Text = "休息日"
End If
End Sub