[Resolvido]Saber se uma data é dia útil ou feriado

Como saber se uma data é dia util ou se é sabado, domingo ou feriado.


Abraços

veja estas funções
http://maximoaccess.forumeiros.com/repositorio-de-codigos-vba-e-sql-para-ms-access-f6/funcoes-uteis-t922.htm
Para o Domingo ou outro dia da semana utilize a função WeekDay

Amigo Alexandre, acho que não fui muito claro. Tenho a data de vencimento somente gostaria que em um outro controle mim mostrasse se é dia util ou não.


Obrigado pela atenção

Colega

Para isso você deve ter duas datas para que um outro controle possa exibir se é dia útil ou não. É isso???

Se for tem aqui uma função:


Option Explicit

Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer
' Esta função não contempla feriados.
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer

BegDate = DateValue(BegDate)
EndDate = DateValue(EndDate)
WholeWeeks = DateDiff("w", BegDate, EndDate)
DateCnt = DateAdd("ww", WholeWeeks, BegDate)
EndDays = 0
Do While DateCnt < EndDate
If Format(DateCnt, "ddd") <> "Sun" And _
Format(DateCnt, "ddd") <> "Sat" Then
EndDays = EndDays + 1
End If
DateCnt = DateAdd("d", 1, DateCnt)
Loop
Work_Days = WholeWeeks * 5 + EndDays
End Function

Basta ver na Sala de Exemplos e na Sala de Códigos VBA, todas as suas duvidas relacionadas com Datas ficaram sanadas.


Exemplo para fins de semana:

Private Sub SuaCaixaData_AfterUpdate()
If Weekday(Me.SuaCaixaData) = vbSaturday Or Weekday(Me.SuaCaixaData) = vbSunday Then
Me.SuaCaixaResultado.Value = "Fim de Semana"
Else
Me.SuaCaixaResultado.Value = "Dia Util"
End If
End Sub

Para mostrar se é feriado veja a função do Grande Alexandre (Function Feriado)

JPaulo, vieirasoft, Alexandre Neves, estou testando assim que tiver um resultado, entro em contato.


Obrigado pela atenção.

Tentei a de JPaulo e a de vieirasoft e não conseguir ter exito.

Coloquei no formulário onde encontra-se o campo dtVencimento, coloquei no próprio campo no critério ao atualizar, fiz diversas tentativas e não obtive exito.

Mim deem uma ajuda.

Coloque o seu banco ou parte dele num site publico para o ajudar-mos.

Vou enviá-lo amanhã pela manhã porque estou fora do escritório.

Abraços