日期区间计算

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Label1.Text = "今天是今年的第"
        Label1.Text += DateDiff(DateInterval.Day, #1/1/2007#, Now).ToString & "天"
    End Sub