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:  Calcular o quinto dia util do mes
Postada em 27/11/2003 por FatBoy            
'Dom = +5 = Sex
'Seg = +4 = Sex
'Ter = +6 = Seg
'Qua = +6 = Ter
'Qui = +6 = Qua
'Sex = +6 = Qui

Dim Data As Date
Dim DataVenc As Date
    
Data = CDate(Format(Text1, "DD/MM/YYYY"))
    
    
    Select Case Weekday(Data)
        Case 1 'Domingo
            DataVenc = DateAdd("d", 5, Data)
        Case 2 'Segunda
            DataVenc = DateAdd("d", 4, Data)
        Case Else
            DataVenc = DateAdd("d", 6, Data)
    End Select
    
    
    MsgBox Format(DataVenc, "DD/MM/YYYY")
 


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