secondoftheday 的反函数， 在线等。

Question

用secondoftheday可以求出今天经过了多少秒，如果我用这秒数减去另一常数，得出来的秒数怎样再转换为日期型？多谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Time: TDateTime;
  Sec: Integer;
begin
  Sec := SecondOfTheDay(Now);
  Time := Sec / 86400.0;
  showmessage(FormatDateTime('HH:NN:SS', Time));
end;

Answer 2

1天为1，
3600*24=一天的秒数。如果只想求时分秒也可
hh:=sec div 3600;
mm:=(sec mod 3600)div 60;
ss:=sec mod 60;