一、DateTime,Date,Time存储方式本质上也是以double来存储的。用整数部分表示日期，小数部分表示时间。可看我另外一篇“access 中“日期/时间”存储方式 ”
TDateTimePicker有上面三种属性。
二、TDateTimePicker的kind属性设置为dtkDate用于显示日期，第二个kind设置为dtkTime用于显示时间，但是不能同时显示的。
三、用DateTimePicker.Date和Time的值要注意：取Date要用trunc取整得到，取Time要用frac取小数得到。
四、DateTimePicker的Date,Time,DateTime三者是相等的。
下面这个例子看一下：
新建一个工程放入一个TDateTimePicker、两个TEdit、两个按钮，并设置两个按钮的事件代码如下
{DateTimePicker1的日期和时间设置为：2010-03-26 13:00:00}
procedure TForm1.Button1Click(Sender: TObject); //取出Date部分，并判断它的值
var
t:TDateTime;
begin
t:= DateTimePicker1.Date;
Edit1.Text:=DateTimeToStr(t);
end;
procedure TForm1.Button2Click(Sender: TObject); //判断取Date和DateTime是否相等
begin
if DateTimePicker1.Time = DateTimePicker1.DateTime then
begin
Edit2.Text:='相等'
end
else
begin
Edit2.Text:='不相等';
end;
end;
可以看到虽然我们的代码中只取了Date或是Time，但是它们的值和DateTime的值是相等的。
所以如果你用如下代码
{DateTimePicker1的日期和时间设置为：2010-03-26 13:00:00}
procedure TForm1.Button1Click(Sender: TObject); //取出Date部分，并判断它的值
var
t:TDateTime;
begin
t:= DateTimePicker1.Date + DateTimePicker1.Time;
//t:= trunc(DateTimePicker1.Date)+frac(DateTimePicker1.Time);//这才是等到DateTimePicker1的日期和时间
Edit1.Text:=DateTimeToStr(t);
end;
结果是：2120-6-21 2:00:00
相当于是把DateTimePicker1的时间和日期乘以2了，并不是说DateTimerPicker的Date+Time就和DateTime相等。
而用 trunc取整数部分 加上 frac取小数部分 函数，两者取出来的和就会和原来相等。
参考:
http://ifso.iteye.com/blog/1752420