Solved Add end of the month date after date Update

[theinviter]

Dears;

i have a form whrere use add the 1st date of the month in "Date_From" , then i want "Date_To" to get last date of the month automatically,
can you guide me.

thanks

 

[bob fitz]

You could use a UDF. Something like:

Public Function LstDayMnth(InDate As Date) As Date
    LstDayMnth = DateSerial(Year(InDate), month(InDate) + 1, 0)
End Function

I take NO Credit for the code. It is just one of many very useful "date" functions which are in the following db which was made available, I believe, by Pat Hartman. Many thanks to Pat.

 

[Eugene-LS]

i have a form whrere use add the 1st date of the month in "Date_From" , then i want "Date_To" to get last date of the month automatically,
can you guide me.

Dim iYear%, iMonth%, dDay As Date
    iYear = Year(Date)
    iMonth = Month(Date)

    dDay = DateSerial(iYear, iMonth, 1)
    Debug.Print "First date of the month: " & dDay
    
    dDay = DateSerial(iYear, iMonth + 1, 0)
    Debug.Print "Last date of the month: " & dDay

 

[Pat Hartman]

Here's a sample database with useful date functions. It includes the one offered by Bob

Sample Date Functions

This database contains a number of date functions that you can simply copy into your application. There is a tabbed form to show you how to use the calculations. A partial list of functions is: Business days between two dates. Business day + days = next business date Easter (Western) Age...

www.access-programmers.co.uk