Source position: ovcdate.pas line 186
function RoundToNearestHour(
T: TStTime;
Truncate: Boolean
):TStTime;