怎样将当前时间转换成一个长整型的数值

Question

呵呵
直接这样用：
var
 A:Integer;
Begin
 A:=Trunc(Now);
End;

Answer 1

var yy,mm,dd :Word;
    s:string;
    DT:integer;
begin
  DecodeDate(now,yy,mm,dd);
  S:=Format('%d',[yy])+Format('%.2d',[mm])+Format('%d',[dd]);  //s='20010621'
  DT:=StrtoInt(S); // DT=20010621
end;

Answer 2

有什么理？人问的是时间，不是日期啊，呵呵。Trunc(Now)取的还是日期部分，跟Trunc(Date)的结果一样。用浮点数吧，直接这样即可了：FloatToStr(Now)如果真想用整型数，只能用Int64了：
var
  i64: Int64;i64 := Trunc(now*100000);

Answer 3

时间日期类型是一个浮点数据，其整数据部分表1899年12月30日以来的天数据，小数据部分表示在一天中的已经过的部分，比如.5就是表示中午12点，其实合在一起也是1899年12月30日以来的天数据，只是一天没过完就按小数算。
例：
2001-06-21 14:24:03 内部表示为37063.6000424768。所以不明白对于以上的这个日期,你想得到的长整数是37063，还是20010621，不是6000424768，
如果是37063则：Trunc(now);如果是20010621则：
StrToInt(DateTimeFormat('yyyymmdd',now))