View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
 
Posts: 2,337
Default why my date shows up as 12:00:00 AM?

Instead of
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;@"

Wouldn't this be easier. BTW. for the current year just use m/d

Sub putdate()'Excel should automatically format as date
ActiveCell = InputBox("Enter Date mm/dd/yyyy")
End Sub

--
Don Guillett
SalesAid Software

"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))"