How to remove 0 that represent hours, minutes, and seconds from a date list say a
a = {{{2007, 1, 3, 0, 0, 0.}, 10.}, {{2007, 1, 4, 0, 0, 0.},20.}, {{2007, 1, 5, 0, 0, 0.}, 30.}}
Result should be:
{{{2007, 1, 3}, 10.}, {{2007, 1, 4},20.}, {{2007, 1, 5}, 30.}}
b = a /. {x_, y_, z_, i_, j_, k_} -> {x, y, z}
though you would need to be careful when you have exactly 6 temporal datum $\endgroup${#[[1, 1 ;; 3]], #[[2]]} & /@ a
$\endgroup$b = Delete[a, Position[a, n_ /; Or[n==0,n==0.]]]
. $\endgroup$