|
|
|
|
|
|
|
|
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
|
|
|
|
|
