สอบถามการคำนวนวันหยุดหน่อยครับ
คำนวนหาวันที่ที่ต้องการโดยไม่นับวัน อาทิตย์, วันหยุดนักขัตฤกษ์ต่าง ๆ ครับ ต้องเขียนยังไง อ่ะครับกรณีของวันหยุดนักขัตฤกษ์จะต้องมีข้อมูลเอาไว้ล่วงหน้าครับ สำหรับโค้ดชุดนี้เป็นการคำนวณหาเฉพาะวันที่เป็นเสาร์ - อาทิตย์ ก็น่าจะเป็นแนวทางให้ไปต่อเติมได้เองครับ DateTimePicker 2 ตัวชื่อ dtpBeginDate/dtpEndDate ปุ่มคำสั่งชื่อ btnCalHoliday และ Label 2 ตัวชื่อ lblSaturday/lblSunday
Private Sub btnCalHoliday_Click(sender As System.Object, e As System.EventArgs) Handles btnCalHoliday.Click
Dim CountSun As Integer = 0
Dim CountSat As Integer = 0
Dim BeginDate As DateTime = Convert.ToDateTime(dtpBeginDate.Text)
Dim EndDate As DateTime = Convert.ToDateTime(dtpEndDate.Text)
'// หาจำนวนวันเพื่อทำการลูป
Dim TotalDays = (EndDate - BeginDate).TotalDays
'MsgBox(TotalDays)
For i = 0 To TotalDays
'// https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateandtime.weekday?view=netframework-4.8
'// เช็คว่าค่า DayOfWeek เท่ากับอะไร
Dim weekday As DayOfWeek = Convert.ToDateTime(dtpBeginDate.Text).AddDays(i).DayOfWeek
'// FirstDayOfWeek.Saturday = 6
If weekday = DayOfWeek.Saturday Then
CountSat += 1
End If
'// FirstDayOfWeek.Sunday = 0 (Default)
If weekday = DayOfWeek.Sunday Then
CountSun += 1
End If
Next
lblSaturday.Text = CountSat & " (วัน)"
lblSunday.Text = CountSun & " (วัน)"
End Sub
thongkorn ตอบกลับเมื่อ 2019-5-14 15:27
กรณีของวันหยุดนักขัตฤกษ์จะต้องมีข้อมูลเอาไว้ล่วงหน ...
ขอบคุณครับ เอามาต่อยอดได้จบเลย ^^ dreamkarifha ตอบกลับเมื่อ 2019-5-16 11:48
ขอบคุณครับ เอามาต่อยอดได้จบเลย ^^
จัดไปแบบชุดเต็มครับ การคำนวณหาจำนวนวันหยุดเสาร์ - อาทิตย์ ตามช่วงเวลาที่เรากำหนด
หน้า:
[1]