Days = [{Year,Month,Day}
                                || Day <- lists:seq(calendar:last_day_of_the_month(Year,Month), 1, -1)
                               ],