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）

转载于:https://blog.51cto.com/13177711/2336367