[vb 2010]判斷DateTimePicker時間
- 帖子
- 7
- 主題
- 4
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- visual studio 2008
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-6-26
- 最後登錄
- 2015-11-11
|
[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卻沒有照我的想法做，不知哪裡錯了，希望有前輩指點一下謝謝 |
|
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
2#
發表於 2016-1-25 14:08
| 只看該作者
我想在windows form程式底下用一個DateTimePicker和一個Button，如果日期剛好星期一時，我按下Button就會顯 ...
edchen70 發表於 2015-11-11 20:21 
你的程式 沒有任何 DateTimePicker的關連性..
以下副程式是我弄兩個DateTimePicker 借此比對 日期間距..- Sub wd12s() '日期判斷副程式
- Dim d1 As Date = DateTimePicker1.Value
- Dim d2 As Date = DateTimePicker2.Value
- Dim wd1 As String = DateTimePicker1.Value.DayOfWeek
- Dim wd2 As String = DateTimePicker2.Value.DayOfWeek
- Select Case wd1
- Case 0 : wd1 = "日" : Case 1 : wd1 = "一" : Case 2 : wd1 = "二" : Case 3 : wd1 = "三" : Case 4 : wd1 = "四"
- Case 5 : wd1 = "五" : Case 6 : wd1 = "六"
- End Select
- Select Case wd2
- Case 0 : wd2 = "日" : Case 1 : wd2 = "一" : Case 2 : wd2 = "二" : Case 3 : wd2 = "三" : Case 4 : wd2 = "四"
- Case 5 : wd2 = "五" : Case 6 : wd2 = "六"
- End Select
- If d2 = d1 Then
- Label14.Text = "( " & wd1 & " )" & " ~ "
- Label15.Text = "( " & wd2 & " )" & "， 當天"
- Else
- Label14.Text = "( " & wd1 & " )" & " ~ "
- Label15.Text = "( " & wd2 & " )" & "，共 " & DateDiff(DateInterval.Day, d1, d2) + 1 & "天 " & DateDiff(DateInterval.Day, d1, d2) & " 夜"
- End If
- End Sub
- ublic Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- call wd12s
- If wd1="一" Then msgbox "週一不開館"
- End Sub
- End Class
|
|
|
多做多想多學習，少看少錯少迷途
多做=多多練習，多多編寫。
多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
多學習=學習人家的發問並解答，學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
