pListCurrYr = {{{2017, 1, 3, 0, 0, 0.}, 1.67}
, {{2017, 1, 4, 0, 0, 0.}, 1.66}, ...}; (* 3 mos. of data *)

DateListPlot[
 Tooltip[pListCurrYr]
 , PlotTheme -> "Classic"
 , AspectRatio -> 0.8
 , PlotLabel -> Style[
   Framed[
    "CME Block Cheese Prices from "
     <> DateString[
      pListCurrYr[[1, 1]], {"MonthName", " ", "DayShort"}] <> " to "
     <> DateString[
      pListCurrYr[[Length[pListCurrYr], 1]], {"MonthName", " ",
       "DayShort", ", ", "Year"}]
    ]
   , "Subsection"
   ]
 , Filling -> Bottom
 , PlotMarkers -> {[FilledDiamond], 18}
 , PlotRange -> {Full, {1.00, 2.00}}
 ]

DateListPlot[
 Tooltip[#, {DateString[#[[1]],
      {"Month", "/", "Day", "/", "YearShort"}], #[[2]]}] & /@
  pListCurrYr,
 PlotTheme -> "Classic",
 AspectRatio -> 0.8,
 PlotLabel ->
  Style[Framed[
    "CME Block Cheese Prices from " <>
     DateString[pListCurrYr[[1, 1]],
      {"MonthName", " ", "DayShort"}] <> " to " <>
     DateString[pListCurrYr[[Length[pListCurrYr], 1]],
      {"MonthName", " ", "DayShort", ", ", "Year"}]], "Subsection"],
 Filling -> Bottom,
 PlotMarkers -> {◆, 18},
 PlotRange -> {Full, {1.00, 2.00}}]