พารามิเตอร์: คุณเชื่อหรือไม่? โมดูลนี้สามารถเขียนได้เร็วกว่าวิธีอื่นหลายสิบเท่า! พารามิเตอร์มีดังนี้:
1: วันไหนเป็นวันฐาน?
2: (ไม่บังคับ) คุณกำลังมองหาวันใดในสัปดาห์ ถ้าไม่ระบุ ค่าเริ่มต้นคือวันเสาร์
3: (ไม่บังคับ) คุณควรค้นหาไปข้างหน้า (อดีต) หรือย้อนกลับ (อนาคต)?
หากไม่ได้ระบุค่าเริ่มต้นคือการค้นหาในอนาคต (อนาคต)
รหัสโปรแกรม
PublicFunctionSpecificWeekday(ByValDAsDate, OptionalByValWhatDayAsVbDayOfWeek=vbSaturday, OptionalGetNextAsBoolean=True)AsDate
specificWeekday=(((D-WhatDay GetNext)/7)-GetNext)*7 WhatDay
EndFunction
บางทีคุณอาจต้องการทราบว่าเหตุใดโปรแกรมจึงเขียนเช่นนี้?
คุณรู้หรือไม่? ใน VB วันฐาน (วันที่ 0) ของฟังก์ชันวันที่ทั้งหมดคือ 30 ธันวาคม พ.ศ. 2442 (วันเสาร์) และวันแรกคือวันที่ 31 ธันวาคม พ.ศ. 2442 (วันอาทิตย์) ดังนั้นอัลกอริธึมฟังก์ชันวันทำงานของ VB จึงเป็น ( Date-1) มอด7 1.
ส่งกลับค่า
วันที่
ตัวอย่าง:
อยากทราบว่ามีวันไหนบ้างคะ?
วันจันทร์ที่แล้ว: วันทำงานเฉพาะ (ตอนนี้, vbMonday, เท็จ)
วันเสาร์หน้า: วันธรรมดาเฉพาะ (ตอนนี้)
วันศุกร์หน้า 9 กันยายน 2543: specificWeekday("09/09/2000",vbFriday)->