[vb 2010]判斷DateTimePicker時間

edchen70

我想在windows form程式底下用一個DateTimePicker和一個Button，如果日期剛好星期一時，我按下Button就會顯示"週一不開館"錯誤訊息框
程式碼如下：
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If DayOfWeek.Monday = True Then
            MessageBox.Show("週一不開館", "日期錯誤", MessageBoxButtons.OK)
        End If
    End Sub
End Class
但我執行測試點選DateTimePicker裡的日期星期一，再按button卻沒有照我的想法做，不知哪裡錯了，希望有前輩指點一下謝謝

mark15jill

我想在windows form程式底下用一個DateTimePicker和一個Button，如果日期剛好星期一時，我按下Button就會顯 ...
edchen70 發表於 2015-11-11 20:21

    你的程式  沒有任何 DateTimePicker的關連性..
    以下副程式是我弄兩個DateTimePicker 借此比對 日期間距..

1.     Sub wd12s()  '日期判斷副程式
   
2.         Dim d1 As Date = DateTimePicker1.Value
   
3.         Dim d2 As Date = DateTimePicker2.Value
   
4.         Dim wd1 As String = DateTimePicker1.Value.DayOfWeek
   
5.         Dim wd2 As String = DateTimePicker2.Value.DayOfWeek
   
6.         Select Case wd1
   
7.             Case 0 : wd1 = "日" : Case 1 : wd1 = "一" : Case 2 : wd1 = "二" : Case 3 : wd1 = "三" : Case 4 : wd1 = "四"
   
8.             Case 5 : wd1 = "五" : Case 6 : wd1 = "六"
   
9.         End Select
   
10. 
    
11.         Select Case wd2
    
12.             Case 0 : wd2 = "日" : Case 1 : wd2 = "一" : Case 2 : wd2 = "二" : Case 3 : wd2 = "三" : Case 4 : wd2 = "四"
    
13.             Case 5 : wd2 = "五" : Case 6 : wd2 = "六"
    
14.         End Select
    
15. 
    
16.         If d2 = d1 Then
    
17.             Label14.Text = "( " & wd1 & " )" & "  ~  "
    
18.             Label15.Text = "( " & wd2 & " )" & "， 當天"
    
19.         Else
    
20.             Label14.Text = "( " & wd1 & " )" & "  ~  "
    
21.             Label15.Text = "( " & wd2 & " )" & "，共 " & DateDiff(DateInterval.Day, d1, d2) + 1 & "天 " & DateDiff(DateInterval.Day, d1, d2) & " 夜"
    
22.         End If
    
23.     End Sub

複製代碼

如果你真的要用button判斷的話

1. ublic Class Form1
   
2. 
   
3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
4.       call wd12s
   
5.         If  wd1="一"  Then msgbox "週一不開館"
   
6.     End Sub
   
7. End Class

複製代碼