Vba code for Prompt Values Wrt Sysdate

[rrbo]

Dear All,

Can we give prompt values dynamically with respect to sysdate using VBA.

Like in my report there is 2 prompts (user response ) like
production start date and Production end date.

I need to give the input values for last three months,
if sysdate is any day in june 2003 then that prompt values should be Production Start date = '03/01/2003' and
Production End Date = '05/31/2003'.

If sysdate is any day in july 2003 then that prompt values should be
Production Start date = '04/01/2003' and
Production End Date = '06/30/2003'. and so on.

Can any one post the VBA code to achieve my result.

Thanks