| ( |
|
|
|||
| Increases or decreases the hour part of a given time | |||
 |
|
| Parameters: | |
| the time to convert | |
| numbers of hours to add or subtract | |
|
|
procedure CheckTimeMinSec(var Time timep)
begin
if (GetSecond(timep)>=60) then begin
timep = AddMinutes(timep,1);
timep = AddSeconds(timep,-GetSecond(timep));
end;
if (GetMinute(timep)>=60) then begin
timep = AddHours(timep,1);
timep = AddMinutes(timep,-GetMinute(timep));
end;
return;
end;
|
|
| Related topics: | |