请问如何将时间转换成实型，急等！

Question

请问如何将时间转换成实型，急等！

Answer 1

tdatetime类型就是实数类型，不用转换
你可以这样用
var
  a:tdatetime;
  b:double;
begin
  a:=now;
  b:=a;
  showmessage(floattostr(b));
  showmessage(floattostr(a));
end;

Answer 2

TDateTime = type Double;

Answer 3

TDateTime数型就是DOUBLE类型。不用转换就可以用了。

Answer 4

如果你这里说的时间类型时像'2003-02-04 21:04:04'这样的一个字符串,用strtodatetime就可以转换成为实数了。实际上，tDate,tTime,TDateTime和double都是一个数据类型

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  t:Tdatetime;
  i:Double;
begin
  T:=Now;
  i:=t ;
  Edit1.Text:=FormatDateTime('YYYY-MM-DD',FloatToDateTime(i));end;

Answer 6

TDateTime是用实型来表达日期,小数点前是年月日,也就是起始日期到今日已过了多少天.
小数点后面是时分秒,也就是今天零点开始,到现在已过了多少秒.

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  t:Tdatetime;
  i:Double;
begin
  T:=Now;
  i:=t ;
  Edit1.Text:=FormatDateTime('YYYY-MM-DD',FloatToDateTime(i));end;

Answer 8

谢谢个位！！！小鸭明白了！！！
但还有一个问题，请各位帮忙：
TIME怎么转化为秒？？？？
                             谢谢！！

Answer 9

使用 Decodetime(Time, Hour, Min, Sec, MSec) 分解时间的各部分,然后就交给你处理了.
同理 Decodetime(Date, Year, Month, Day) 分解日期的各部分.反过来是 
tmpDateTime:= EncodeDate(Year, Month, Day) + EncodeTime(Hour, Min, Sec, MSec)