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:  Calcula qualquer dia útil de um mês posterior ou anterior
Postada em 25/11/2003 por PC            
Private Sub Command1_Click()
Dim D_Util As String ' nº do dia útil usar no formato "01", "10"
Dim Num_Month As Byte 'nº de meses a somar ou diminuir
Dim DiaUtil As Date

Dim TempData As Date
D_Util = "05" '5º dia útil de
Num_Month = 2 'dois meses daqui para frente

'calcula hoje mais X meses
TempData = DateAdd("m", Num_Month, Now)

'descobre que dia da semana é o Y primeiro dia do mês
If Weekday(D_Util & "/" & Format$(TempData, "MM/YYYY")) = 1 Then 'DOMINGO
    DiaUtil = DateAdd("d", 1, CDate(D_Util & "/" & Format$(TempData, "MM/YYYY")))
ElseIf Weekday(D_Util & "/" & Format$(TempData, "MM/YYYY")) = 7 Then 'SABADO
    DiaUtil = DateAdd("d", 2, CDate(D_Util & "/" & Format$(TempData, "MM/YYYY")))
Else ' DIA DE SEMANA BASTA MOSTRAR
    DiaUtil = CDate(D_Util & "/" & Format$(TempData, "MM/YYYY"))
End If

MsgBox D_Util & "º dia útil é : " & DiaUtil

End Sub
 


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