datInitDate.Value = Format(Date,"mm-dd-yyyy")

datComplDate.Value = Format(Date + 90,"mm-dd-yyyy")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Kind writer/user/programmer" wrote in
message ...
A custom dialog box (input form) I created for Excel has 2 date
fields--one
90 days later than the other. The first field defaults to today:

datInitDate.Value = Date$
(displays as 01-06-2005)

The second defaults to 90 days later than whatever winds up in that
field:

datComplDate.Value = DateAdd("d", 90, datInitDate.Value)
(displays as 4/6/2005)


How do I make these two dates have the same format?

Alternatively, I also added the Analysis Toolpack, put a reference to it
in
my VBA project and tried using these--which fail as "out of range" (both
are
empty):

TODAY() and (or TODAY, with no parentheses)
WORKDAY(TODAY(),90)

This fails and I cannot find any help (online or in my Object Browser for
all libraries) to see a working example.

Do TODAY/WORKDAY require DIM statements? (Are these arrays?)