How can I get the frame ticks from DateListPlot?

Question

DateListPlot very nicely chooses major and minor frame tick and frame tick label/markers.

I am building a custom graphics function where either the x or y axis is time and I would like to use whatDateListPlot provides. How can I do this without simply overlaying and using Show?

Answer 1

Options will do it:

data = {{{2006, 10, 1}, 10}, {{2006, 10, 15}, 12},
   {{2006, 10, 30}, 15}, {{2006, 11, 20}, 20}};
plot = DateListPlot[data];
Options[plot, FrameTicks]

For example, modifying the contents of FrameTicks:

data = {DateList[{2006, #, 1}], #} & /@ Range[40];
plot = DateListPlot[data];
ticks = FrameTicks /. Options[plot, FrameTicks];
ticks[[2, 1, All, 2]] = Style[#, Red] & /@ ticks[[2, 1, All, 2]];
pos = Position[plot, FrameTicks];
plot[[Sequence @@ Most[First@pos]]] = FrameTicks -> ticks;
plot