This is a simple function which helps with the granularity of Timing for 
commands which are relatively fast.

SetAttributes[time,  HoldAll];

time[expr_]  :=  
      Block[{Second  =  1},  
        Module[{t  =  First[Timing[expr]],  
            tries  =  1}, 
While[t  <  1. ,  
            tries  *=  2;  
            t  =  First[
                Timing[Do[expr,  {tries}];]]]; 
t/
            tries
]
]