ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 471|ตอบกลับ: 3

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

[คัดลอกลิงก์]

4

กระทู้

11

โพสต์

180

เครดิต

Member

Rank: 2

เครดิต
180

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

213

กระทู้

301

โพสต์

2419

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2419
โพสต์ 2019-5-14 15:27:12 | ดูโพสต์ทั้งหมด

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

Holiday.png
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

4

กระทู้

11

โพสต์

180

เครดิต

Member

Rank: 2

เครดิต
180
 เจ้าของ| โพสต์ 2019-5-16 11:48:36 | ดูโพสต์ทั้งหมด

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

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

213

กระทู้

301

โพสต์

2419

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2419
โพสต์ 2019-5-17 12:50:00 | ดูโพสต์ทั้งหมด
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-27 12:55 , Processed in 0.311768 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้