Dim rs As DAO.Recordset
Dim Months As Integer
Dim Item As Integer
Dim Primo As Date
Set rs = Me.RecordsetClone
Months = DateDiff("m", Me!FirstDate.Value, Me!LastDate.Value) ' Unbound, to enter dates.
Primo = DateSerial(Year(Me!FirstDate.Value), Month(Me!FirstDate.Value), 1)
For Item = 0 To Months
rs.AddNew
rs!StartDate.Value = DateAdd("m", Item, Primo)
rs!EndDate.Value = DateSerial(Year(Primo), Month(Primo) + 1, 0)
rs.Update
Item = Item + 1
Next
rs.Close
Private Sub Command41_Click()
Dim rs As DAO.Recordset
Dim Days As Integer
Dim Item As Integer
Dim Primo As Date
Set rs = Me.RecordsetClone
Days = DateDiff("d", Me!FirstDate.Value, Me!LastDate.Value) ' Unbound, to enter dates.
Primo = DateSerial(Year(Me!FirstDate.Value), Month(Me!FirstDate.Value), 1)
Me.Painting = False
For Item = 0 To Days
rs.AddNew
rs!StartDate.Value = DateAdd("d", Item, Primo)
rs!EndDate.Value = DateAdd("d", Item + 1, Primo)
rs.Update
Next
rs.Close
Me.Requery
Me.Painting = True
End Sub
See the attached demo.StartDate EndDate
10/01/2017 10/31/2017
11/01/2017 12/29/2017
12/30/2017 12/31/2017
Start date End date
01.10.2017 31.12.2017
01.11.2017
30.12.2017
I only get monthly range. Payment day is single day, not a date range.
I need to get this:
01.10.2017-31.10.2017
01.11.2017-29.12.2017
30.12.2017-31.12.2017
15.02.2017-28.02.2017 100,00 EUR
01.03.2017-04.03.2017 100,00 EUR
05.03.2017-31.03.2017 85,00 EUR
01.04.2017-20.04.2017 85,00 EUR