[VB.NET] แจกโค้ดวิธีการคำนวณหาวันลาพักร้อน รวมเสาร์อาทิตย์และวันหยุดทางราชการ

thongkorn

โค้ดชุดนี้จะเป็น การคำนวณหาวันหยุดลาพักร้อน (Vacation Leave) โดยสามารถทำการลบวันหยุดเสาร์หรืออาทิตย์ และวันหยุดราชการตามปีปฏิทิน (ตัวอย่างใช้ข้อมูลสมมุติ) ออกไปจากช่วงเวลาขอลาพักร้อนได้ โดยมีหลักการดังนี้ หาค่าช่วงระหว่างวันที่เริ่มต้นและสิ้นสุดในการลาพักร้อนเข้ามา จากนั้นทำการตรวจสอบว่าตรงกับวันหยุดเสาร์ - อาทิตย์หรือไม่ หากไม่หยุดก็ให้นับวันนั้นเข้ามาด้วย ส่วนวันทำงานปกติจันทร์ - ศุกร์ ให้นับรวมทั้งหมด นำมาเก็บไว้ใน DataTable ตัวที่ 1 (DT1) สำหรับ DataTable ตัวที่ 2 (DT2) จะทำการเก็บค่าวันหยุดทางราชการเอาไว้ (เวลาใช้งานจริงก็คือการดึงมาจากฐานข้อมูลที่ต้องเก็บค่าวันหยุดเอาไว้ล่วงหน้า) ขั้นตอนสุดท้ายก็คือ ทำการเปรียบเทียบค่า DataTable 1 กับ DataTabe 2 หากค่าใน DataTable 1 มีอยู่ใน DataTable 2 จะต้องทำการลบแถว หรือ DataRow ตัวนั้นทิ้งออกไป ก็จะสามารถคำนวณหาจำนวนวัน และวันที่ทำการขอลาหยุดพักร้อนได้นั่นเอง ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmVacationLeave
   
2.     Dim DT1 As DataTable
   
3.     Dim DT2 As DataTable
   
4. 
   
5.     ' / -----------------------------------------------------------------------------
   
6.     Private Sub frmVacationLeave_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Call SetupDataTable()
   
8.         lblTotalDay.Text = "Total Vacation Leave: "
   
9.     End Sub
   
10. 
    
11.     ' / -----------------------------------------------------------------------------
    
12.     Sub SetupDataTable()
    
13.         '/ Create Column Header
    
14.         DT1 = New DataTable
    
15.         DT1.Columns.Add(New DataColumn("Date", GetType(String)))
    
16.         DT1.Columns.Add(New DataColumn("Day", GetType(String)))
    
17.         DT1.Columns.Add(New DataColumn("DayOfWeek", GetType(String)))
    
18.         '//
    
19.         DT2 = New DataTable
    
20.         DT2.Columns.Add(New DataColumn("Date", GetType(String)))
    
21.         '// Sample
    
22.         DT2.Rows.Add("16/12/2562")
    
23.         '// Random Date
    
24.         For i = 0 To 2
    
25.             Dim row As String() = {Convert.ToDateTime(RandomDate("01/01/2562", "01/12/2562"))}
    
26.             DT2.Rows.Add(row)
    
27.         Next
    
28.         '// Sample dd/MM/yyyy
    
29.         DT2.Rows.Add(Format(Convert.ToDateTime(RandomDate("01/12/2562", "31/12/2562")), "dd/MM/yyyy"))
    
30.         dgvDate.DataSource = DT2
    
31.     End Sub
    
32. 
    
33.     ' / -----------------------------------------------------------------------------
    
34.     ' / Random Date.
    
35.     Function RandomDate(startDate As DateTime, endDate As DateTime)
    
36.         RandomDate = DateAdd(
    
37.             "d" _
    
38.             , Fix(DateDiff("d", startDate, endDate) * Rnd()) _
    
39.             , startDate _
    
40.         )
    
41.     End Function
    
42. 
    
43.     ' / -----------------------------------------------------------------------------
    
44.     '// https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateandtime.weekday?view=netframework-4.8
    
45.     ' / -----------------------------------------------------------------------------
    
46.     Private Sub btnVacation_Click(sender As System.Object, e As System.EventArgs) Handles btnVacation.Click
    
47.         Dim StartDate As DateTime = Convert.ToDateTime(dtpStartDate.Text)
    
48.         Dim EndDate As DateTime = Convert.ToDateTime(dtpEndDate.Text)
    
49.         '// Find the number of days to loop.
    
50.         Dim TotalDays = (EndDate - StartDate).TotalDays
    
51.         'MsgBox(TotalDays)
    
52.         '// Clear DataTable
    
53.         DT1.Rows.Clear()
    
54.         Dim row As String() = {}
    
55.         '// Read the date values stored in the DataTable first.
    
56.         For i = 0 To TotalDays
    
57.             '// Check that the DayOfWeek value.
    
58.             Dim weekday As DayOfWeek = Convert.ToDateTime(dtpStartDate.Text).AddDays(i).DayOfWeek
    
59.             Dim MyFormatDate As String = "dd/MM/yyyy"
    
60.             '// FirstDayOfWeek.Saturday = 6
    
61.             If weekday = DayOfWeek.Saturday Then
    
62.                 '// Working day.
    
63.                 If Not chkSaturday.Checked Then
    
64.                     row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Saturday.ToString, DayOfWeek.Saturday}
    
65.                     DT1.Rows.Add(row)
    
66.                 End If
    
67. 
    
68.                 '// FirstDayOfWeek.Sunday = 0 (Default)
    
69.             ElseIf weekday = DayOfWeek.Sunday Then
    
70.                 '// Working day.
    
71.                 If Not chkSunday.Checked Then
    
72.                     row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Sunday.ToString, DayOfWeek.Sunday}
    
73.                     DT1.Rows.Add(row)
    
74.                 End If
    
75. 
    
76.                 '// Working Days.
    
77.             Else
    
78.                 Select Case weekday
    
79.                     Case DayOfWeek.Monday
    
80.                         row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Monday.ToString, DayOfWeek.Monday}
    
81.                     Case DayOfWeek.Tuesday
    
82.                         row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Tuesday.ToString, DayOfWeek.Tuesday}
    
83.                     Case DayOfWeek.Wednesday
    
84.                         row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Wednesday.ToString, DayOfWeek.Wednesday}
    
85.                     Case DayOfWeek.Thursday
    
86.                         row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Thursday.ToString, DayOfWeek.Thursday}
    
87.                     Case DayOfWeek.Friday
    
88.                         row = {Convert.ToDateTime(dtpStartDate.Text).AddDays(i).ToString(MyFormatDate), DayOfWeek.Friday.ToString, DayOfWeek.Friday}
    
89.                 End Select
    
90.                 DT1.Rows.Add(row)
    
91.             End If
    
92.         Next
    
93.         '//
    
94.         dgvData.DataSource = Nothing
    
95.         dgvData.Rows.Clear()
    
96.         dgvData.DataSource = DT1
    
97. 
    
98.         '// Compare 2 DataTable.
    
99.         Call CheckDateExist()
    
100.     End Sub
     
101. 
     
102.     ' / -----------------------------------------------------------------------------
     
103.     ' / Remove Rows from DataTable (DT1) that exists in another DataTable (DT2).
     
104.     Sub CheckDateExist()
     
105.         Dim RowsToRemove As New List(Of DataRow)()
     
106.         For Each Row1 As DataRow In DT1.Rows
     
107.             For Each Row2 As DataRow In DT2.Rows
     
108.                 If Row1("Date").ToString() = Row2("Date").ToString() Then
     
109.                     RowsToRemove.Add(Row1)
     
110.                 End If
     
111.             Next
     
112.         Next
     
113.         '//
     
114.         For Each row As DataRow In RowsToRemove
     
115.             DT1.Rows.Remove(row)
     
116.             DT1.AcceptChanges()
     
117.         Next
     
118.         dgvData.DataSource = Nothing
     
119.         dgvData.Rows.Clear()
     
120.         dgvData.DataSource = DT1
     
121.         lblTotalDay.Text = "Total Vacation Leave: " & dgvData.Rows.Count & " Days."
     
122.     End Sub
     
123. 
     
124.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
125.         Me.Close()
     
126.     End Sub
     
127. 
     
128.     Private Sub btnRandomDate_Click(sender As System.Object, e As System.EventArgs) Handles btnRandomDate.Click
     
129.         DT2.Rows.Clear()
     
130.         '// Random Date
     
131.         For i = 0 To 5
     
132.             Dim row As String() = {Convert.ToDateTime(RandomDate("01/01/2562", "01/12/2562"))}
     
133.             DT2.Rows.Add(row)
     
134.         Next
     
135.         '// Sample dd/MM/yyyy
     
136.         DT2.Rows.Add(Format(Convert.ToDateTime(RandomDate("01/12/2562", "31/12/2562")), "dd/MM/yyyy"))
     
137.         dgvDate.DataSource = DT2
     
138.     End Sub
     
139. End Class

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

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

komenservice

ขอบคุณครับ อาจารย์

jakapong

ขอบคุณครับ

MMEE007

ขอบคุณคับ อาจารย์

g2gsoftuser

ขอบคุณครับ