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

Musholla Al-Furqon VS Mesjid Al-Ghony 7-4

Musholla Al-Furqon (MF) kembali memetik kemenangan telak 7-4 menghadapi Mesjid Al-Ghony. Starting line-up MF kiper Suwantono, belakang Sigit - Vicky, depan Yadi - Eka. Karena diatas angin, Vicky merubah posisinya menjadi forward, sehingga gol pertama lahir dari umpan Vicky ketika berhadapan sendirian dengan kiper dioper ke Yadi di sayap kiri, gawang kosong sehingga dengan mudah Yadi mencetak gol. Gol kedua juga lahir dari umpan Vicky yang mengoper Yadi di sayap kiri. Pada pertandingan ini Yadi betul-betul tampil dalam form terbaiknya sehingga pantas dinobatkan menjadi Man of the Match (MOM). Dibuktikan dengan 3 gol (hatrick) yang dibuatnya. Gol lain dari MF dicetak Us Us (substitute/back) 1 gol dan Asep (substitute) 1 gol. Pemain lawan, Ferdian tidak mampu berbuat banyak karena cedera yang dialaminya.