code an input field that asks for current date

I would like to create a macro that will ask for the current date and input
the value into the header of a weekly report. How do I do this?

Thanks in advance,
jag