In[]:=
data={#,RandomVariate[NormalDistribution[0,1]]}&/@RandomReal[{3564979299,3565355902},1000];
In[]:=
DateListPlot[data,AspectRatio->0.2,DateTicksFormat->{"Day","/","Month"},GridLines->{Join[{#,LightGray}&/@DateRange[{2012,12,12},{2012,12,31},"Hour"],{#,Gray}&/@DateRange[{2012,12,12},{2012,12,31},"Day"]],None},FrameTicks->{Automatic,{DateRange[{2012,12,12},{2012,12,31},"Day"],None}}]
Out[]=
