Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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))" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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))" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date shows as a number | Excel Discussion (Misc queries) | |||
blank date shows up as s 1/0/00 | Excel Worksheet Functions | |||
Excel: I enter date and format for date, but shows as number | Excel Discussion (Misc queries) | |||
Date shows as 01/01/00 | Excel Discussion (Misc queries) | |||
date shows 1/1/1900 | Excel Worksheet Functions |