VB.Net日期控件（DateTimePicker）

日期控件(DateTimePicker)控件允许通过编辑控件中显示的值来选择日期和时间。如果单击DateTimePicker控件中的箭头，它将显示一个月份日历，如组合框控件。用户可以通过点击所需日期进行选择。新的选定值出现在控件的文本框部分。在窗体中显示效果如下所示

Public Class DateTimePickerDemo
    Private Sub Form_load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "日期控件"

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '获取日期控件的值
        '通过 Dim、Public 或 Private 语句声明 VBScript 变量
        Dim d1 As DateTime = DateTimePicker1.Value
        Dim d2 As DateTime = DateTimePicker2.Value
        'TimeSpan表示时间间隔， 即两时刻之差
        Dim result As TimeSpan = d2.Subtract(d1)
        Dim days As Integer = result.TotalDays
        anTxt.Text = "共 " + days.ToString + " 天"


    End Sub
End Class