Parameter: Apakah Anda percaya? Modul ini dapat ditulis puluhan kali lebih cepat dibandingkan metode lainnya! Parameternya adalah sebagai berikut:
1: Hari apa yang merupakan hari dasar?
2: (Opsional) Hari apa yang Anda cari? Jika tidak ditentukan, nilai defaultnya adalah Sabtu
3: (Opsional) Haruskah Anda menelusuri ke depan (masa lalu) atau ke belakang (masa depan)?
Jika tidak ditentukan, nilai defaultnya adalah mencari di masa depan (future)
Kode program
PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDate
Hari Kerja Tertentu=(((D-Hari Apa GetNext)/7)-GetNext)*7 Hari Apa
Fungsi Akhir
Mungkin Anda ingin tahu kenapa programnya ditulis seperti ini?
Tahukah kamu? Dalam VB, hari dasar (hari ke-0) dari semua fungsi tanggal adalah 30 Desember 1899 (Sabtu), dan hari pertama adalah 31 Desember 1899 (Minggu), sehingga algoritma fungsi Hari Kerja VB sebenarnya adalah (Tanggal-1) Mod7 1.
nilai kembalian
tanggal
Contoh:
Saya ingin tahu hari-hari manakah berikut ini?
Senin lalu: Hari Kerja Tertentu (Sekarang, vbSenin, Salah)
Sabtu depan: Hari Kerja Tertentu (Sekarang)
Jumat depan, 9 September 2000: SpesifikWeekday("09/09/2000",vbFriday)->