DECRESCER 5 DIAS DE UMA DATA DIGITADA
Olá, amigos estou com um problemão... espero a juda de vc's!
Tenho um campo textbox que recebe uma data... gostaria que em outro textbox fosse gerado uma data com 5 dias antes, se possÃvel úteis!
EX:
o usuário digita dia 15/03/2005 e na outra caixa gere 10/03/2005... mas se iso fosse calculado em dias úteis seria melhor ainda, ou seja, o usuário digital 15/03/2005 mas os dias 14 e 13 são sabado e domingo e o dia 11 é feriado então na outra caixa gera: 07/03/2005.
Alguem sabe?
Obrigado gente!
Tenho um campo textbox que recebe uma data... gostaria que em outro textbox fosse gerado uma data com 5 dias antes, se possÃvel úteis!
EX:
o usuário digita dia 15/03/2005 e na outra caixa gere 10/03/2005... mas se iso fosse calculado em dias úteis seria melhor ainda, ou seja, o usuário digital 15/03/2005 mas os dias 14 e 13 são sabado e domingo e o dia 11 é feriado então na outra caixa gera: 07/03/2005.
Alguem sabe?
Obrigado gente!
Private Sub Text1_Change()
Dim dDate As Date
On Error Resume Next
If Not IsDate(Text1.Text) Then
dDate = CDate(Text1.Text) - 5
Text2.Text = dDate
End If
End Sub
Dim dDate As Date
On Error Resume Next
If Not IsDate(Text1.Text) Then
dDate = CDate(Text1.Text) - 5
Text2.Text = dDate
End If
End Sub
Private Sub RetiraCincoDias()
MsgBox DateAdd("d", -5, Format$(Text1.Text, "dd/mm/yyyy"))
End Sub
Tópico encerrado , respostas não são mais permitidas