UNA PEQUEEÑA MODIFICACIÓN Y RESTA LOS DIAS SABADOS Y DOMINGOS....SALU2
Código PHP:
Dim VTotal As Integer
mes = CStr(Cal.Month)
mes_actual = Mid(Format(Date, "DD/MM/YYYY"), 5, 1)
Cal.Day = 1
VTotal = 0
For i = 1 To 31
If mes = mes_actual Then
VTotal = VTotal + 1
dia = UCase(Format(Cal.Day, "DDDD"))
If dia = "SÁBADO" Or dia = "DOMINGO" Then
VTotal = VTotal - 1
MsgBox dia & "...." & Cal.Day
End If
mes = CStr(Cal.Month)
Cal.NextDay
End If
Next i
MsgBox "Dias habiles del mes: " & VTotal