DateTimePicker两个连用的问题
TdateTimePicker控件
kind设为:dtkTime
format设为:yyyy-MM-dd hh:mm
可是它可能是由于kind的关系,只能设置time,
Date设置后,并不改变
我查看了一下源代码,并没有发现如何直接控制的接口
据说是直接封装的Windows的一个动态链接库的的东西
没办法就用两个吧
但是一个很有意思的事情,就是
他们的date和time返回的居然都是一个完整的DateTime值
下面的函数可以解决这个问题
首部 function Date: TDateTime; $[SysUtils.pas
功能 返回当前日期
说明 Date - Int(Date)=0;
参考 function SysUtils.DateTimeToString
例子 Edit1.Text := DateToStr(Date);
首部 function Time: TDateTime; $[SysUtils.pas
功能 返回当前时间
说明 Time - Frac(Time)=0;
参考 function Windows.GetLocalTime;function SysUtils.EncodeTime
例子 Edit1.Text := TimeToStr(Time);