Dim iDayInYear As Integer iDayInYear = DatePart("y", Now()) DaysLeftInYear = IIf(IsDate(sDate = "02/29/" & _ CStr(Year(Now))), 366 - iDayInYear, 365 - iDayInYear)