[Resolvido]Extrair domingos

Boa noite Amigos

No exemplo abaixo como extrair os domingos do intervalo entre "DI" e Data1.

O "Di" é sempre o primeiro dia do mês corrente.

O Data1 é o último dia da tabela MaxData


Private Sub Form_Current()

Dim Data1 As Date
Di = DateSerial(Year(Me.Data), Month(Me.Data), 1)
Data1 = DMax("[maxdedatarec]", "MaxData")
Me.Dif = DateDiff("d", Di, Data1) + 1

End Sub


Obrigado

Com a função abaixo contei os domingos entre as datas

Public Function ContaDomingo(Di As Date, DATA1 As Date) As Long
'By JPaulo Maximo Access
Dim ContaDias As Long
Dim PercorreDatas As Date
Dim inConta As Long

ContaDias = 0
For PercorreDatas = Di To DATA1
inConta = Weekday(PercorreDatas)
If inConta = 1 Then
ContaDias = ContaDias + 1
End If
Next PercorreDatas
ContaDomingo = ContaDias
End Function


E depois

Me.Dif = (DateDiff("d", Di, Data1) + 1) - txtDomingo

txtDomingo é o campo que recebe o numero de domingos

Bom domingo para todos


Obrigado