ขอความช่วยเหลือ เรื่อง จะเปรียบเทียบค่า DateTime ช่วยด้วยคะ ต้องการความช่วยเหลือ-

Dim dmy As String
        Dim diff As String
        Dim se As String
        dmy = DateTime.Now.ToString("yyyy-MM-dd", New Globalization.CultureInfo("th-TH", False))
        se = Calendar1.SelectedDate.ToString("yyyy-MM-dd", New Globalization.CultureInfo("th-TH", False))

        diff = DateDiff(DateInterval.Day, CDate(dmy), CDate(se))
        If diff > 1 Then
            lbldate.Text = Calendar1.SelectedDate.ToString("yyyy-MM-dd", New Globalization.CultureInfo("th-TH", False))
            Calendar1.Visible = False
        End If