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

[DG_1]

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

[vuen]

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

[DG_1]

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

[vuen]

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

[vuen]

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

[hellolongbin]

日期本身就是浮点数
其中整数部分是年月日，小数部分是小时分秒

[whisht]

回复人： vuen(阿土) ( ) 信誉：99 2005-11-23 14:26:00 得分: 0


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

[ly_liuyang]

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

[g961681]

直接赋值就可以了啊～～～～～

[XuDunYu]

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

[XuDunYu]

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