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
ขอบคุณครับ เอามาต่อยอดได้จบเลย ^^

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