Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Last Day of Month
Below I have code that finds a date in a cell like "200412". The line that
sets "sDateRange" returns "12/1/2004" which is correct. My problem is the last line that sets sLastDayMonth variable. For some reason, sLastDayMonth returns "1/12/1900" but I want it to return "12/31/2004". What am I doing wrong? Dim sDateRange As Date, sLastDayMonth As Date, cell As Range Set cell = FindCell("To Period", Sheets(1).Cells).Offset(0, 2) sDateRange = CDate(Right(cell.Value, 2) & "/" & (Left(cell.Value, Len(cell) - 2))) sLastDayMonth = CDATE(YEAR(sDateRange),MONTH(sDateRange)+1,0) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Last Day of Month
CDate takes a single string as it's argument. You want the DateSerial
function. It uses the 3 parts you specified... HTH "scott" wrote: Below I have code that finds a date in a cell like "200412". The line that sets "sDateRange" returns "12/1/2004" which is correct. My problem is the last line that sets sLastDayMonth variable. For some reason, sLastDayMonth returns "1/12/1900" but I want it to return "12/31/2004". What am I doing wrong? Dim sDateRange As Date, sLastDayMonth As Date, cell As Range Set cell = FindCell("To Period", Sheets(1).Cells).Offset(0, 2) sDateRange = CDate(Right(cell.Value, 2) & "/" & (Left(cell.Value, Len(cell) - 2))) sLastDayMonth = CDATE(YEAR(sDateRange),MONTH(sDateRange)+1,0) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel to make the days cary over month to month automaticly | New Users to Excel | |||
Excel 2003 month to month data change grid | Excel Discussion (Misc queries) | |||
Create Month Timetable on a worksheet different month each works | Excel Worksheet Functions | |||
When using MONTH function on Blank Cell!! Returns Month=Jan! | Excel Discussion (Misc queries) | |||
transfer cell $ amount to other sheet month-to-month without overc | Excel Discussion (Misc queries) |