為什麼DELPHI沒有這個函數??

Question

將浮點數轉化為日期可以用FloatToDateTime
將日期轉化為浮點數卻沒有可用函數??
我找了一下DELPHI的幫助文件中,好像沒有看到
是否真的這樣??

Answer 1

楼主，你看看Delphi帮助里TDateTime的定义：
type TDateTime = type Double;

Answer 2

38576.03用FLOATTODATETIME後-->2005-08-12 上午 12:43:12
現在我想反過來從2005-08-12 上午 12:43:12得到38576.03
該怎麼做??

Answer 3

var
  date: TDateTime;
  num: double;
begin
  date := StrToDateTime('2005-08-12 12:43:12');
  num := date;
end;

Answer 4

你可以直接吧TDateTime类型的变量直接当浮点型变量使用啊。

Answer 5

回复人： vuen(阿土) ( ) 信誉：99  2005-11-23 14:26:00  得分: 0  
 
 
   楼主，你看看Delphi帮助里TDateTime的定义：
type TDateTime = type Double;  
 

Answer 6

日期的本质就是Double
还用什么转化的?

Answer 7

var
  d:double;
begin
  d := double (date);
  datetimepicker1.DateTime := Tdatetime(d);
end;

Answer 8

var
  d:double;
begin
  d := double (Incday(datetimepicker1.DateTime,1));
  datetimepicker1.DateTime := Tdatetime(d);
end;