Message Box to display current date

[howard]

I have the following code

 ShowDateBox:
        IPrompt = "PLEASE ENTER DATE FOR THIS REPORT:" _
            & Chr(13) & Chr(10) & Chr(13) & Chr(10) _
            & "(Normally Accounting MONTH END date)"
        IDeflt = Format(Range(InsImpDate).Value, "dd/mm/yy") ' Define buttons.
        ITitle = "   SET REPORT DATE  "    ' Define title.

I would like the code amended to display the current date i.e todays date in format dd/mm/yyyy


Your assistance in this regard is most appreciated

 

[Jeffrey Mahoney]

How about this?

 ShowDateBox:
        IPrompt = "PLEASE ENTER DATE FOR THIS REPORT:" _
            & Chr(13) & Chr(10) & Chr(13) & Chr(10) _
            & "(Normally Accounting MONTH END date)"
        IDeflt = Format(now(), "dd/mm/yyyy") ' Define buttons.
        ITitle = "   SET REPORT DATE  "    ' Define title.

 

[howard]

Thanks for the help Jeffrey. Code works perfectly