Mega Code Archive
Increase time function
<![CDATA[
Title: increase time function
Question: Another way to increment a TTime var by a given number of minutes
Answer:
Function IncreaseTime(T:TTime;i:integer):TTime;
Var Hour, Min, Sec, MSec: Word;
begin
DecodeTime(t, Hour, Min, Sec, MSec);
Min:=min+i;
Hour:=Hour+Min div 60;
Hour:=Hour mod 24;
Min:=Min mod 60;
result:=EncodeTime(Hour, Min, Sec, MSec);
end;
]]>