Board logo

標題: [vb 2010]判斷DateTimePicker時間 [打印本頁]
作者: edchen70    時間: 2015-11-11 20:21     標題: [vb 2010]判斷DateTimePicker時間

我想在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    時間: 2016-1-25 14:08

我想在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

  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

  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

  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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)