Now() but! always the 1st

[Kenln]

I use the Now() to put the report date into a table. In addition I would like to display the date but always as the 1st of whatever month and year.

Is there an easy way to take a date and just change whatever day to the first?

Here is what I am using now.

dtmReportDate = Left$(Now(), InStr(Now(), " ") - 1)

 

[mousie]

Public Shared Function GetBeginOfCurrentMonth(ByVal pDate As Date) As Date
Return Date.Parse(pDate.Year.ToString & "/" & pDate.Month.ToString & "/01")
End Function

You can then use
dtmReportDate = GetBeginOfCurrentMonth(Now())

or dtmReportDate = GetBeginOfCurrentMonth(date var)

 

[Bat17]

in code
DateSerial(Year(Date), Month(Date), 1)
in a query/calculated control
DateSerial(Year(Date()), Month(Date()), 1)

HTH

Peter

 

[Kenln]

It works great!

Thank you,

 

[modest]

You could also do:
dtmReportDate = Format(Now, "mm/" & "01" & "/yyyy")
or
dtmReportDate = Format$(Now, "mm/" & "01" & "/yyyy")