TDataTime到底是什么类型呢?
常在使用一些控件时不知道如何设置,总感觉TDataTime和字符串或者数字之间需要相互转换才可以使用,总觉得很是麻烦,于是特意查看了一下在delphi中的定义
在SysUtils单元里有这样两个函数
SysUtils.FloatToDateTime();
SysUtils.TryFloatToDateTime();
在 System 单元定义有: TDateTime = type Double;
从中看来 TDateTime 是一个 8 字节 64 位数据, 不过是 Double 的别名.
下面请看一个小例子
{测试: TDateTime 其本质就是一个 Double}
var
t: TDateTime;
d: Double;
s: string;
begin
t := EncodeDateTime(2012, 5, 22, 11, 22, 33, 999);
ShowMessage(FloatToStr(t)); //39955.4740046181
s := FormatDateTime('yyyy-m-d h:m:s:z', 39955.4740046181);
ShowMessage(s); //2012-5-22 11:22:33:999
end;
但是是不是任何一个 Double 都会转换成一个合法的时间, 答案是否定的
在SysUtils 单元给出了最小与最大时间的常数:
const
MinDateTime: TDateTime = -657434.0; { 01/01/0100 12:00:00.000 AM }
MaxDateTime: TDateTime = 2958465.99999; { 12/31/9999 11:59:59.999 PM }
所以如果想让程序的健壮性更高,应该通过: FloatToDateTime(); 或 TryFloatToDateTime(); 把一个数转换到 TDateTime; 来验证一下
{使用 TryFloatToDateTime}
var
t: TDateTime;
d: Double;
begin
d := 0;
if TryFloatToDateTime(d, t) then
ShowMessage(DateTimeToStr(t)); //1899-12-30
end;
{使用 FloatToDateTime; 转换失败或遇到非法时间时会抛出异常}
var
t: TDateTime;
d: Double;
begin
d := 0;
t := FloatToDateTime(d);
ShowMessage(DateTimeToStr(t)); //1899-12-30
end;
{当时间是 1899年12月30日 0时0分0秒 0毫秒时, TDateTime 对应的时间值是 0}
var
d: Double;
t: TDateTime;
begin
t := StrToDateTime('1899-12-30 0:0:0:0');
d := Double(t);
ShowMessage(FloatToStr(d)); //0
end;