Get last and first day of previous month

[creative1]

hello
I am using following code to access first and last date of current month

StartingDate_ms k.Text = Format$(Date, "dd/mm/yyyy")
EndingDate_msk. Text = Format$(MonthLa stDay(Date), "dd/mm/yyyy")can some one help me how I can find fist and last date of previous month?

chill
farhana

[hariharanmca]

hello
I am using following code to access first and last date of current month

StartingDate_ms k.Text = Format$(Date, "dd/mm/yyyy")
EndingDate_msk. Text = Format$(MonthLa stDay(Date), "dd/mm/yyyy")can some one help me how I can find fist and last date of previous month?

chill
farhana

First day will be 1

and to get last day

Day(DateSerial(Year(Now), Month(Now), 0))

Below will return last date

DateSerial(Year(Now), Month(Now), 0)

[creative1]

thanks
But last day of previous month worked but first day of previous month didn't.
this is what I get when I use your code.I just formatted it to match my requirments.


StartingDate_ms k.Text = Format$(Day(Dat eSerial(Year(No w), Month(Now), 0)), "dd/mm/yyyy")

30/01/1900 i.e incorrect

EndingDate_msk. Text = Format$(DateSer ial(Year(Now), Month(Now), 0), "dd/mm/yyyy")
31/08/2007 i.e correct


any suggestions.
farhana

[hariharanmca]

thanks
But last day ............... ......

StartingDate_msk.Text = Format$(Day(DateSerial(Year(Now), Month(Now), 0)), "dd/mm/yyyy")

30/01/1900 i.e incorrect

EndingDate_msk.Text = Format$(DateSerial(Year(Now), Month(Now), 0), "dd/mm/yyyy")

31/08/2007 i.e correct

For Last day of PrevMonth

StartingDate_msk.Text = Format$(DateSerial(Year(Now), Month(DateAdd("M", -1, Now)), 0)), "dd/mm/yyyy")

[shrimant]

LastDateOfPreviousMonth = DateAdd("d", -1, CDate((Month(Now)) & "/01/" & Year(Now)))
Dim Yr, Mnth
If Month(Now) = 1 Then
    Yr = Year(Now) - 1
    Mnth = 12
Else
    Yr = Year(Now)
    Mnth = Month(Now) - 1
End If
FirstDateOfPreviousMonth = CDate(Mnth & "/01/" & Year(Now))

Regards
-Shrimant Patel-
&
-Harith Patel-

[Killer42]

Nice piece of work, shrimant. However, I feel it's better to use DateSerial as it doesn't depend on your PC using a particular date format. For example PCs in the U.S. and Australia would (probably) return different results for CDate function, because the U.S. has the month first, while Oz has the day first.

I'd recommend the following modification of your routine...

LastDateOfPreviousMonth = DateAdd("d", -1, DateSerial(Year(Now), (Month(Now), 1)
FirstDateOfPreviousMonth = DateSerial(Year(LastDateOfPreviousMonth), Month(LastDateOfPreviousMonth), 1)

By the way, I seem to recall that the DateAdd() function can sometimes return unexpected results when using the "d" (day) interval. If so, try using "y" (day of year) instead.

[creative1]

thanks everyone. It solved my problem. I appreciate your help