asked on

End of This Quarter from Today

Experts,

I have a filter form with txtDateFrom and txtDateTo

I need a formula for showing the txtDateTo as the end of the this quarter.

Private Sub btnQtrEnd_Click()

Me!txtDateFrom = Date
Me!txtDateTo = ?????

end sub

ie: today (txtDateFrom) = Dec 10, 2014
txtDateTo would need to = DEc 31, 2014

thank you

ASKER CERTIFIED SOLUTION

HainKurt

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

SOLUTION

Gustav Brock

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

HainKurt

it is taken from ms library

http://msdn.microsoft.com/en-us/library/aa227525%28v=vs.60%29.aspx

Gustav Brock

Sorry, meant the questioneer's library ...

/gustav

pdvsa

ASKER

I forgot that I have this function in my library. Gustav can read my db even without seeing it! Amazing!! ;)

I did have to adjust it a bit to get what I wanted.

Private Sub btnNextQtr_Click()

Me!txtdatefrom = Date
Me!txtDateTo = DateThisQuarterLast(DateAdd("q", 1, Date))

End Sub

Gustav Brock

Well, you asked for this quarter.
For the next quarter, again look up your own library and use:

Me!txtDateTo = DateNextQuarterLast(Date)

/gustav

pdvsa

ASKER

Yes, I am playing with you. Thank you for the correction.