+ return ( days )
+}
+
+#TODO: use data... 12-12-1-2 CH, 3-4-9-10 EP et le reste NP
+isSameSeason = function(month, month_ref)
+{
+ if (month_ref %in% c(11,12,1,2))
+ return (month %in% c(11,12,1,2))
+ if (month_ref %in% c(3,4,9,10))
+ return (month %in% c(3,4,9,10))
+ return (month %in% c(5,6,7,8))
+}
+
+#TODO:
+#distinction lun-jeudi, puis ven, sam, dim
+#isSameDay = function(day, day_ref)
+#{
+# if (day_ref ==