FabianoJesus 12/3/2015, 01:22
Segue em anexo a função que montei e um exemplo do seu uso.
Ela retorna o último dia procurado do mês desejado.
Você pode chamar a função conforme o exemplo abaixo:
UltimoDiaMes (5 , vbWednesday )
O valor retornado será 27/05/2015
Segue abaixo o código da função:
Public Function UltimoDiaMes(ByVal parMes As Integer, ByVal parDiaDesejado As VbDayOfWeek) As String
Dim varData As Date
Dim varUltimaData As Date
varData = 1 & "/" & parMes & "/" & Year(Date)
For x = 1 To 31
If Month(varData) > parMes Then Exit For
If parDiaDesejado = Weekday(varData) Then
varUltimaData = varData
End If
varData = varData + 1
Next x
UltimoDiaMes = Format(varUltimaData, "dd/mm/yyyy")
End Function
Basta copiar o código da função para um módulo.
Att.
- Anexos
- Funcao.txt
- Você não tem permissão para fazer download dos arquivos anexados.
- (2 Kb) Baixado 7 vez(es)