HansV wrote:Replace
For D = DateSerial(2010, 5, 31) To Date - 7 Step 14
with
d = DateSerial(2010, 5, 31)
Do While d <= Date - Day(Date)
and
Next D
with
d = DateAdd("m", 1, d + 1) - 1
Loop
Code: Select all
Sub ListMissing1(AGENZIA_NT As String)
Dim D As Date
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM DATE_INQ WHERE DT='" & AGENZIA_NT & "'", _
CN, adOpenKeyset, adLockOptimistic, adCmdText
D = DateSerial(2010, 10, 31)
Do While D <= Date - Day(Date)
V1 = Format(D, "yyyymmdd")
rst.Filter = "DATE_1 = '" & V1 & "'"
If rst.EOF Then
Debug.Print AGENZIA_NT & "-" & D & "-" & DateAdd("D", D, 1)
Me.ListBox1.AddItem AGENZIA_NT & "-" & D & "-" & DateAdd("D", D, 1)
CONTA = CONTA + 1
Me.Label14.Caption = CONTA
End If
D = DateAdd("m", 1, D + 1) - 1
Loop
rst.Close
Set rst = Nothing
End Sub
based this code see wath i have in debug.print for this loop!
8501-31/10/2010-01/11/2010
8501-30/11/2010-01/12/2010
8501-31/12/2010-01/01/2011
note:
for month i have changed 31/05/2010 to 31/10/2010