why my date shows up as 12:00:00 AM?
I ran your code answering 12/15/2003 then did:
? Range("begbase").Value
12/15/2002
--
Regards,
Tom Ogilvy
"Papa Jonah" wrote in message
...
The following code works - except when I query the intermediate window for
?begbase, I get "12:00:00 AM" and I don't understand why. Any help would
be
much appreciated.
Public reviewbeg As Date
myfilename = InputBox("What will this file be named?")
ActiveWorkbook.SaveAs (myfilename)
Range("a2").Select
Selection.CurrentRegion.Select
Set myrange = Range("a2").CurrentRegion
Set daterange = myrange.Offset(, myrange.Columns.Count).Resize(1, 1)
daterange.Select
reviewbeg = InputBox("What date (MM/DD/YYYY) will mark the beginning
of
the review period?")
ActiveCell.FormulaR1C1 = reviewbeg
ActiveCell.NumberFormat = "m/d/yy h:mm;@"
daterange.Name = "begrevdate"
daterange.Offset(2).Name = "begbase"
daterange.Offset(2).FormulaR1C1 =
"=date(YEAR(begrevdate)-1,month(begrevdate),day(begrevdate))"
|