[VB.NET] การคำนวณหาจำนวนวันหยุดเสาร์ - อาทิตย์ ตามช่วงเวลาที่เรากำหนด

thongkorn

หลักการคิด: คำนวณหาจำนวนวันที่เลือกจากวันที่เริ่มต้นและวันที่สิ้นสุด จากนั้นทำการลูปตามจำนวนช่วงวันที่เลือก ทำการแยกแยะตาม DayOfWeek ออกมา โดยที่วันอาทิตย์ (Sunday) มีค่าเป็น 0 ส่วนวันเสาร์มีค่าเป็น 6 (สำหรับ Visual Basic.NET) ...
มาดูโค้ดกันเถอะ ...

1. Public Class frmCountHoliday
   
2. 
   
3.     ' / -----------------------------------------------------------------------------
   
4.     '// Check Holiday
   
5.     Private Sub btnCalHoliday_Click(sender As System.Object, e As System.EventArgs) Handles btnCalHoliday.Click
   
6.         Dim CountSun As Integer = 0
   
7.         Dim CountSat As Integer = 0
   
8.         Dim StartDate As DateTime = Convert.ToDateTime(dtpStartDate.Text)
   
9.         Dim EndDate As DateTime = Convert.ToDateTime(dtpEndDate.Text)
   
10.         '// Find the number of days to loop.
    
11.         Dim TotalDays = (EndDate - StartDate).TotalDays
    
12.         'MsgBox(TotalDays)
    
13.         Call SetupDataGrid()
    
14.         For i = 0 To TotalDays
    
15.             '// https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateandtime.weekday?view=netframework-4.8
    
16.             '// Check that the DayOfWeek value.
    
17.             Dim weekday As DayOfWeek = Convert.ToDateTime(dtpStartDate.Text).AddDays(i).DayOfWeek
    
18.             Dim MyFormatDate As String = "dd/MM/yyyy"
    
19.             '// FirstDayOfWeek.Saturday = 6
    
20.             If weekday = DayOfWeek.Saturday Then
    
21.                 If chkSaturday.Checked Then
    
22.                     CountSat += 1
    
23.                     Dim row As String() = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Saturday.ToString, DayOfWeek.Saturday}
    
24.                     dgvData.Rows.Add(row)
    
25.                 End If
    
26.             End If
    
27.             '// FirstDayOfWeek.Sunday = 0 (Default)
    
28.             If weekday = DayOfWeek.Sunday Then
    
29.                 If chkSunday.Checked Then
    
30.                     CountSun += 1
    
31.                     Dim row As String() = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Sunday.ToString, DayOfWeek.Sunday}
    
32.                     dgvData.Rows.Add(row)
    
33.                 End If
    
34.             End If
    
35.         Next
    
36.         lblSaturday.Text = CountSat & " [Days]"
    
37.         lblSunday.Text = CountSun & " [Days]"
    
38.     End Sub
    
39. 
    
40.     Private Sub frmCountHoliday_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
41.         lblSaturday.Text = ""
    
42.         lblSunday.Text = ""
    
43.     End Sub
    
44. 
    
45.     ' / -----------------------------------------------------------------------------
    
46.     '// Initialize DataGridView @Run Time
    
47.     Private Sub SetupDataGrid()
    
48.         With dgvData
    
49.             .Columns.Clear()
    
50.             .Rows.Clear()
    
51.             .RowHeadersVisible = False
    
52.             .AllowUserToAddRows = False
    
53.             .AllowUserToDeleteRows = False
    
54.             .AllowUserToResizeRows = False
    
55.             .MultiSelect = False
    
56.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
57.             .ReadOnly = True
    
58.             .Font = New Font("Tahoma", 9)
    
59.             ' Autosize Column
    
60.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
61.             .AutoResizeColumns()
    
62.             '// Even-Odd Color
    
63.             .AlternatingRowsDefaultCellStyle.BackColor = Color.Orange
    
64.             ' Adjust Header Styles
    
65.             With .ColumnHeadersDefaultCellStyle
    
66.                 .BackColor = Color.Navy
    
67.                 .ForeColor = Color.Black ' Color.White
    
68.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
69.             End With
    
70.         End With
    
71.         '// Declare columns type.
    
72.         Dim Column1 As New DataGridViewTextBoxColumn()
    
73.         Dim Column2 As New DataGridViewTextBoxColumn()
    
74.         Dim Column3 As New DataGridViewTextBoxColumn()
    
75.         '// Add new Columns
    
76.         dgvData.Columns.AddRange(New DataGridViewColumn() { _
    
77.                 Column1, Column2, Column3 _
    
78.                 })
    
79.         With dgvData
    
80.             .Columns(0).Name = "Date"
    
81.             .Columns(1).Name = "Day"
    
82.             .Columns(2).Name = "Day of Week"
    
83.         End With
    
84.     End Sub
    
85. 
    
86. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

anuyut1995

แจ่มเลยครับ

MrDen

ขอบพระคุณอย่างสูงครับ อาจารย์

nakana51

ขอบคุณครับ