DateTimePickerで第2木曜と第4木曜だけ選択させたいと思っています。
今月はきちんと判断出来ていますが、来月6日だと第2木曜と認識してしまうので、
第1木曜日と認識させたいと思っています。
始めの週に木曜日がある場合と無い場合の2通り作るといいのでしょうか。
教えて頂きたいと思います。
VB
1Imports System 2Imports System.Collections.Generic 3Imports System.ComponentModel 4Imports System.Data 5Imports System.Drawing 6Imports System.Linq 7Imports System.Text 8Imports System.Threading.Tasks 9Imports System.Windows.Forms 10Imports System.Text.RegularExpressions 11Imports System.IO 12Imports System.Diagnostics 13Imports Microsoft.WindowsAPICodePack.Dialogs 14 15Public Class Form1 16 17 Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged 18 ' 第2、第4木曜チェック 19 Dim dtp1_day As String = DateTimePicker1.Value.ToString() 20 dtp1_day = dtp1_day.Remove(10) 21 dtp1_day = dtp1_day.Replace("/", "") 22 Dim Day As String = dtp1_day.Remove(0, 6) 23 Dim intday As Integer = Integer.Parse(Day) 24 Dim dt As DateTime 25 dt = DateTimePicker1.Value 26 Dim dow As DayOfWeek 27 dow = dt.DayOfWeek 28 29 If dow <> DayOfWeek.Thursday Then 30 Dim thu_dialog = New TaskDialog() 31 thu_dialog.Caption = "確 認" 32 thu_dialog.InstructionText = " 第2木曜日または" & vbCrLf & " 第4木曜日を選択して下さい。" 33 thu_dialog.Text = "" 34 thu_dialog.Icon = TaskDialogStandardIcon.Warning 35 thu_dialog.StandardButtons = TaskDialogStandardButtons.Ok 36 thu_dialog.Show() 37 Return 38 End If 39 40 If dow = DayOfWeek.Thursday Then 41 Dim aa As Integer = (intday - 1) / 7 ' 第何週目 42 If aa = 0 Or aa = 2 Or aa = 4 Then 43 Dim thu_dialog = New TaskDialog() 44 thu_dialog.Caption = "確 認" 45 thu_dialog.InstructionText = " 第2木曜日または" & vbCrLf & " 第4木曜日を選択して下さい。" 46 thu_dialog.Text = "" 47 thu_dialog.Icon = TaskDialogStandardIcon.Warning 48 thu_dialog.StandardButtons = TaskDialogStandardButtons.Ok 49 thu_dialog.Show() 50 Return 51 End If 52 End If 53 End Sub 54End Class 55 56
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/11/08 02:01