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