|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para retornar o último dia da semana:
|
 |
|
|
|
Postada em 5/10/2003 por Roßerto
Function ÚltimoDiaDaSemana(D As Variant, Optional FirstWeekday As Integer) As Variant
If IsMissing(FirstWeekday) Then
ÚltimoDiaDaSemana = D - WeekDay(D) + 7
Else
ÚltimoDiaDaSemana = D - WeekDay(D, FirstWeekday) + 7
End If
End Function
|
|
|
|
|
