Public Function media(dias As Integer) As Double
Dim sd As Integer, d As Date
d = DateAdd("d", -dias, Now())
sd = tiraFS(d)
dias = dias + sd
media = DAvg("[pLast]", "qryCurrent", "dataCot BETWEEN Date() AND DateAdd('d'," & -dias & ", Date())")
End Function
Public Function tiraFS(inicial As Date) As Integer
Dim n As Integer, a As Date
For a = inicial To Date
If Weekday(a) = 7 Or Weekday(a) = 1 Then n = n + 1
Next
tiraFS = n
End Function