如何计算预定的时间?格式为00:00:00

Question

比如 当前时间为8:05:01  在45 分钟后它应该为8:50:01 请问怎么实现?谢谢!!

Answer 1

DateUtils；
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;

Answer 2

float nowtime,settime;nowtime := now;
settime := nowtime + 45;这样处理就可以了，时间在delphi里面表现为一个float型的数字

Answer 3

float 在哪个单元里啊?

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  nowtime,settime : real;
begin
  Nowtime := now;
  SetTime := nowtime + 45;
end;

Answer 5

var
    strTime:string;
begin
    strTime:='8:05:01';    
    Label1.Caption:=
                 FormatDateTime('hh:nn:ss',IncMinute(StrToTime(strTime),45));