![]() |
HostGator Review Hostgator $3.96/mo. 25% Off code: Best25PercentOff |
![]() |
iPage Review Cheapest Hosting - only $1.99/month Visit iPage |
![]() |
BlueHost Review Best Personal Hosting - $4.95/mo Visit BlueHost |
![]() |
A2Hosting Review Best SSD Hosting - $4.97/mo Visit A2Hosting |
![]() |
GoDaddy Review Best Budget Hosting - $1.99/mo Visit GoDaddy |
Stablehost Review Stablehost Coupons 40% Off code: Best40PercentOff |
|
Arvixe Review Arvixe hosting - $4/mo Visit Arvixe |
|
![]() |
InMotion Hosting Review Best Business Hosting - $5.99/mo Visit InMotion |
![]() |
Dreamhost Review Dreamhost $75 off code: BEST75USDOFF |
![]() |
IXWebHosting Review IXWebHosting - $3.95/mo Visit IXWebHosting |
View All Web Hosting Coupons |
Function GetWorkDays(StartDate As Long, EndDate As Long) As Long
Dim d As Long, dCount As Long
For d = StartDate To EndDate
If WeekDay(d) > 1 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function
Comments[ 0 ]
Đăng nhận xét