USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página