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

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Pegar ultimo dia util do mes
Postada em 30/1/2004 por messohal            
Function UDU(Mes,Ano)
Data = DateSerial(Ano,Mes,01)
Data = DateAdd("m",1,Data)
Data = DateAdd("d",-1,Data)
Until WeekDay(Data)>=2 And WeekDay(Data)<=6
  Data = DateAdd("d",-1,Data)
Loop
UDU = Data
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