Postada em 23/08/2012 12:43 hs
Olha, pega o intervalo de data que precisa em Dias.
Mes = 0
Data = DataInicial
DIAS = DateDiff("d", DataIncial, DataFinal)
Primeira = 0
Mes = Month(DataIncial)
For I = 1 To DIAS
If Mes <> Month(Data) Then
Mes = Month(Data)
Primeira = 0
End If
If WeekDay = 1 Then
If Primeira = 0 Then ' primeira segunda-feira
Primeira = 1
End If
End If
Data = DateAdd("d",Data, 1)
Next
Olha é uma idéia, foi feito aqui, não testei, agora nomeie as variáveis, e verifique o que precisa.
vlu//
|
