请问如何将（now*60*60*24*100）转换成16进制的字符串？？？

Question

没有人帮忙呀，现在delphi版的人气怎么这么差劲儿呀？
帮不上也帮忙up一下呀！
很急，谢谢各位了！！！

Answer 1

function IntToHex(Value: Int64; Digits: Integer): string; overload;
你需要这样
var
  dt:integer;
  str:string;
begin
  dt:=round(now*60*60*24*100);
  str:=inttohex(dt,0);
  Edit1.Text:=str;
end;

Answer 2

var
  dt:real;
  str:string;
begin
  dt:=now*60*60*24*100;
  str:=inttohex(trunc(dt),20);
                          ~~搞长点
  caption := str;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  dt: Real;
  str: string;
begin
  dt := Now * 60 * 60 * 24 * 100;
  str := IntToHex(Trunc(dt), 0);
//                ~~~~~~~~~这里的参数必须是整数
  Caption := str;
end;

Answer 4

Trunc()//截尾取整//得到日期部分参考
DecodeTime();
DecodeDate();

Answer 5

var
  dt:real;
  str:string;
begin
  dt:=now*60*60*24*100;
  str:=inttohex(Trunc(dt),0);
end;