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

Function Position Record

Public Function PositionRecord(Tabel As String, Fild As String, Isi As Variant) As Long
'Fungsi untuk menampilkan posisi record, yang bisa berguna utk menampilkan no urut dari
'query yang dibuat

Dim rsRecord As Recordset
Dim strsql, strsql2 As String
On Error GoTo ErrHandle

strsql = "select * from " & Tabel

Set rsRecord = CurrentDb.OpenRecordset(strsql)

strsql2 = Fild & "=" & Isi
rsRecord.FindNext strsql2

PositionRecord = (rsRecord.AbsolutePosition + 1)
Exit Function

ErrHandle:
MsgBox Err.Description, vbExclamation
End Function