PrintTime::usage = "PrintTime[expr] prints the time it takes
to evaluate expr and returns the result of the evaluation."

Begin["`Private`"]

SetAttributes[PrintTime, HoldAll]

PrintTime[expr_] :=
Block[{`timing},
timing = Timing[expr];
Print[ timing[[1]] ];
timing[[2]]
]

End[]
Null