怎样将当前时间变成整数？

Question

当前时间除以24小时，eg.(12:00:59)/24，我想得到一个小数，怎样实现？谢谢！

Answer 1

想清楚要做什么再问问题，题目说整数，正文说小数。
用Now()函数可以返回当前时间，其中整数部分代表日期，小数部分代表时间，例如0.5表示0.5天即12个小时。用TimeOf函数可以获得时间的值，DateOf函数获得日期的值。

Answer 2

var
 h,m,s,ns: word;
 a: float;
begin
 decodetime(date(),h,m,s,ns);
 a:=(h*120+m*60+s)/(24*120)
end;

Answer 3

改一下
var
 h,m,s,ns: word;
 a: float;
begin
 decodetime(time(),h,m,s,ns);
 a:=(h*120+m*60+s)/(24*120)
end;

Answer 4

var
  SystemTime: TSystemTime;
  result:real;
begin
  GetLocalTime(SystemTime);
  With SystemTime do
    result:=(wHour*3600+wMinute*60+wSecond)/(3600*24);
  ShowMessage(FloatToStr(result));
end;

Answer 5

//uses dateutils;
dateutils.MinuteOfTheDay(now)/1440