|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Dias úteis no mês
|
 |
|
|
|
Postada em 31/7/2003 por cacá
Procedimento que calcula o número de dias úteis dentro de um mês.
function DiasUteis(data as date) as byte
dim mes as byte, i as byte, firstday as date, DIASemana as byte
mes = month(data)
i = 1
firstday = "01/" & month(data) & "/" & year(date)
while month(dateadd("d", i - 1, firstday)) = mes
DIASemana = weekday(dateadd("d", i - 1, firstday), vbsunday)
if DIASemana <> 1 and DIASemana <> 7 then DiasUteis = DiasUteis + 1
i = i + 1
wend
end function
Para saber quantos DIAS úteis tem o mês atual, basta chamar o procedimento passando como argumento qualquer dia do mês.
msgbox DiasUteis(date)
|
|
|
|
|
