updated xlCalendarPeriodCount function