Belajar WeekDays dengan Mudah

rumuskomputer | February 13, 2015 | Excel Macro | No Comments

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 :

http://microsites.imstudion.com/blog/2018/02/13/price-of-himalaya-lasuna/ http://bosnakirtasiye.com/2018/02/16/order-fincar/

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 ai??i?? 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 ai???dai??? karena kita akan menambah harinya, dan huruf ai???Iai??? untuk argument ke duanya, dan date 1 untuk agruments ke 3 nya karena kita akan menambah I days menjadi date 1. Di Excel VBAAi?? 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 (ai???dai???, 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