Function Jumlah Hari Kerja

Function JmlHariKerja(bln As Integer, thn As Long) As Long
'Fungsi untuk menampilkan jumlah hari kerja dg Sabtu-Minggu libur
Dim jumHari, i As Long
Dim cntr As Long
Dim DateX As Date

jumHari = TglAkhirBln(Me.txtBulan, Me.txtTahun)

For i = 1 To jumHari
DateX = DateSerial(thn, bln, i)
If Weekday(DateX, vbMonday) < 6 Then cntr = cntr + 1
Next i

JmlHariKerja = cntr
End Function

Function TglAkhirBln(bln As Integer, thn As Long) As Long
Dim TglAkhir As Long

If bln = 1 Then TglAkhir = 31
If bln = 2 Then
If thn Mod 4 = 0 Then TglAkhir = 29 Else TglAkhir = 28
End If
If bln = 3 Then TglAkhir = 31
If bln = 4 Then TglAkhir = 30
If bln = 5 Then TglAkhir = 31
If bln = 6 Then TglAkhir = 30
If bln = 7 Then TglAkhir = 31
If bln = 8 Then TglAkhir = 31
If bln = 9 Then TglAkhir = 30
If bln = 10 Then TglAkhir = 31
If bln = 11 Then TglAkhir = 30
If bln = 12 Then TglAkhir = 31
TglAkhirBln = TglAkhir
End Function