สอบถามการคำนวนวันหยุดหน่อยครับ

dreamkarifha · โพสต์ 2019-5-12 12:13:12

คำนวนหาวันที่ที่ต้องการโดยไม่นับวัน อาทิตย์, วันหยุดนักขัตฤกษ์ต่าง ๆ ครับ ต้องเขียนยังไง อ่ะครับ

thongkorn · โพสต์ 2019-5-14 15:27:12

กรณีของวันหยุดนักขัตฤกษ์จะต้องมีข้อมูลเอาไว้ล่วงหน้าครับ สำหรับโค้ดชุดนี้เป็นการคำนวณหาเฉพาะวันที่เป็นเสาร์ - อาทิตย์ ก็น่าจะเป็นแนวทางให้ไปต่อเติมได้เองครับ 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

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

dreamkarifha · โพสต์ 2019-5-16 11:48:36

thongkorn ตอบกลับเมื่อ 2019-5-14 15:27
กรณีของวันหยุดนักขัตฤกษ์จะต้องมีข้อมูลเอาไว้ล่วงหน ...

ขอบคุณครับ เอามาต่อยอดได้จบเลย ^^

thongkorn · โพสต์ 2019-5-17 12:50:00

dreamkarifha ตอบกลับเมื่อ 2019-5-16 11:48
ขอบคุณครับ เอามาต่อยอดได้จบเลย ^^

จัดไปแบบชุดเต็มครับ การคำนวณหาจำนวนวันหยุดเสาร์ - อาทิตย์ ตามช่วงเวลาที่เรากำหนด

		จำสถานะนี้ไว้ในครั้งหน้า	ลืมรหัสผ่าน
รหัสผ่าน			ลงทะเบียน