why my date shows up as 12:00:00 AM?
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))" |
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))" |
All times are GMT +1. The time now is 10:23 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com