Delphi DateTimePicker 日期 時間 設置 獲取

1、設置 DateTimePicker 格式：

 self.DateTimePicker_1.Format := 'yyyy/MM/dd HH:mm:ss';
     （注意大小寫）

2、獲取 DateTimePicker 數據：

       日期：self.DateTimePicker_1.Date
                 字符串形式：formatdatetime(self.DateTimePicker_1.Format,self.DateTimePicker_1.Date)
        時間：self.DateTimePicker_1.Time
                 字符串形式：formatdatetime(self.DateTimePicker_1.Format,self.DateTimePicker_1.Time)          
    （備註：function FormatDateTime(const Format: string; DateTime: TDateTime): string;
                       命名空間（namespace） System.SysUtils ）                                     

3、設置 DateTimePicker 數據

      前提：設置DateTimePicker 格式
     1）獲取當前日期時間：
                     日期：self.DateTimePicker_1.Date := Now();
                     時間：self.DateTimePicker_1.Time := Now();
                    備註：控件會根據DateTimePicker.Format自動截取需要的數據
     2）自定義日期時間（string）：
          不管是日期還是時間都需要藉助類TFormatSettings（同樣在 System.SysUtils中），代碼如下：                     
                              定義參數var FSetting:TFormatSettings; 
                              實例化：FSetting := TFormatSettings.Create(LOCALE_USER_DEFAULT);

            根據自定義的參數（string）設置FSetting日期時間格式：
                   日期：FSetting.ShortDateFormat := 'yyyy-MM-dd';
                               FSetting.DateSeparator := '-';//也可以是 '/'，根據傳入參數設置
                                       self.DateTimePicker_1.Date := strToDateTime(Date_in,FSetting);//Date_in日期（string）
                                    備註：日期最短是月日（'MM-dd'），如果想只是設定‘日’，也可先把Date_in轉化爲如：12-20，代碼：
                                         Date_in := '20';
                                         Date_in := '12-'+Date_in;
                                         FSetting.ShortDateFormat := 'MM-dd';
                                         FSetting.DateSeparator := '-';
                                         self.DateTimePicker_1.Format := 'dd';
                                         self.DateTimePicker_1.Date := strToDateTime(Date_in,FSetting);
                                        這樣控件就可以自動獲取日期中的‘日’了。     
                   時間：FSetting.ShortTimeFormat := 'HH:mm:ss';
                               FSetting.TimeSeparator := ':';
                                self.DateTimePicker_1.Time := strToDateTime(Time_in,FSetting);// Time_in日期（string）