如何優雅的給TDatetimePicker控件賦值(Delphi)

給DatetimePicker賦值時，可以通過界面設置賦值，也可以通過代碼賦值。

通常，我們會給表示起始時間的dtp賦值為 00:00:00，給表示結束時間的dtp賦值為23:59:59。

代碼如下：

  dtp1.time:=strtodatetime('00:00:00');

  dtp2.time:=strtodatetime('23:59:59');

但這種方式有硬編碼的嫌疑，而且在對表示日期的datetimepicker賦值時，因為strtodatetime函數在winxp和win7下默認的時間格式不同，可能引發異常。

那么有沒有一種比較好的方式來賦值呢。當然是有的。

 

以給 kind=dtkTime 的 datetimePicker 賦值為例，代碼如下。（需引用DateUtiles單元）

  dtp1.Time:= StartOfTheDay(Now);
  dtp2.Time:=EndOfTheDay(Now);

 

給日期類型的DatetimePicker賦值也是一樣的，利用startofamonth,endofamonth等函數即可。