Count[Map[
Function[w,DateList[w][[3]]==1],
DayRange[DateObject[{1901,1,1}],DateObject[{2000,12,31}], Sunday]
],True]