Belajar WeekDays dengan Mudah
|Dibawah ini akan diajari tentang cara mendapatkan perhitungan weekdays diantara 2 hari di excel VBA. Dan yang termasuk weekdays adalah : Senin, Selasa, Rabu, Kamis dan Jumat.
Situasinya :
Dan untuk format tanggalnya adalah disesuaikan dengan format US.
Pertama, akan dilakukan deklarasi variable.
Dim date1 As Date, date2 As Date, dateToCheck As Date
Dim daysBetween As Integer, weekdays As Integer, i As Integer
Akan ada 4 variabel. Kita akan menggunakan fungsi Datediff untuk menginisilisasi variable diantara hari. Fungsi ini mempunyai 3 agrument. Dan untuk argument – agrumentnya dapat dilihat disini.
weekdays = 0
date1 = Range(“B2”)
date2 = Range(“B3”)
daysBetween = DateDiff(“d”, date1, date2)
Harus dilakukan pengecekan pada setiap tanggal diantara tanggal diantara date 1 dan date 2 ( termasuk didalamnya date 1 dan date 2 ) dan akan disediakan coding untuk dapat dimasukkan ke loop berikutnya.
For I = 0 To daysBetween
Menggunakan Fungsi DateAdd untuk mendapatkan setiap tanggal yang akan kita gunakan. Fungsi ini mempunyai 3 agrument, dan argument pertama yang akan di berikan adalah “d” karena kita akan menambah harinya, dan huruf “I” untuk argument ke duanya, dan date 1 untuk agruments ke 3 nya karena kita akan menambah I days menjadi date 1. Di Excel VBA ini, dapat melakukan checking setiap tanggalnya diantara date 1 dan date 2 dan selalu dimulai dengan date 1. Tambahkan barisan coding yang ada di bawah ini :
Datetocheck = dateadd (“d”, I, date1)
Contoh : for I = 3, excel vba check date1 + 3 hari.
Kemudian, akan digunakan fungsi weekday untuk mengecek apakah datetocheck adalah sebuah weekday atau pun bukan. Fungsi weekdays membalikan 1 untuk minggu dan 7 untuk sabtu. Dan barisan kode yang akan membuat ini selesai.
If (Weekday(dateToCheck) <> 1 And Weekday(dateToCheck) <> 7) Then
weekdays = weekdays + 1
End If
Jangan lupa untuk menutup loopnya
Next i
Kemudian coding untuk Msgboxnya
MsgBox weekdays & ” weekdays between these two dates”
Hasilnya
Begitula tutorail singkat tentang excel macro kita ini. Semoga bisa membantu pekerjaan kantoran kita.