Popular base de dados… sábados…
Function Popular_Base(strAno As String, scont As Integer) Dim dtini As Date, dtFim As Date, strSql As String, icont As Integer, sdia dtini = CVDate(“1/” & “01” & “/” & strAno) dtFim = DateAdd(“M”, 12, dtini) – 1 icont = scont + 1 Do While dtFim >= dtini sdia = Weekday(dtini) If sdia = 7 Then… Read More »