Function MyNetworkDays(ByVal d1 As Date, ByVal d2 As Date) As Long
'要引用 microsoft excel XX.0 object library
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
MyNetworkDays = objExcel.Application.NetworkDays(d1, d2)
objExcel.Quit
Set objExcel = Nothing
End Function