Test Procedure for dhCountWorkdays

[sukishan]

Test Procedure for dhCountWorkdays

Sub TestCountWorkdays()
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Set db = DAO.DBEngine.OpenDatabase("Holidays.MDB")
    Set rst = db.OpenRecordset("tblHolidays", _
     DAO.dbOpenDynaset)
    Debug.Print dhCountWorkdays(#12/27/96#, #1/2/97#, _
     rst, "Date")
    Debug.Print dhCountWorkdays(#12/27/96#, #1/2/97#)
End Sub