Question

vb中设置一个日期型变量a,其年月日分别在textbox1,textbox2和textbox3中输入

如何将textbox中的值赋给a,并判断a是否小于或等于当前日期

Answer 1

希望可以启发和帮助你
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As Date
a.AddYears(CInt(txtyear.Text))
a.AddMonths(CInt(txtmonth.Text))
a.AddDays(CDbl(txtday.Text))
If DateDiff("d", a, Now) > 0 Then
label1.Text = "小于当前日期"
Else
label1.Text = "大于当前日期"
End If
End Sub