2019獨角獸企業重金招聘Python工程師標準>>>

讓delphi程序不受WINDOWS日期格式的影響如果WINDOWS系統的短日期格式為“yyyy/m/d”，執行下面的代碼會報錯：2013-01-29 00:00:00不是合法的日期 procedure TFrmQuerySale.FormShow(Sender: TObject); var sDate: string; begin inherited; // 默認查當天的銷售數據 sDate := FormatDateTime('yyyy-mm-dd', Now); DateTimePicker1.DateTime := StrToDateTime(sDate + ' 00:00:00'); DateTimePicker2.DateTime := StrToDateTime(sDate + ' 23:59:59'); Find(Trim(edtBillId.Text), DateTimePicker1.DateTime, DateTimePicker2.DateTime); edtBillId.SetFocus; end;如何解決？ procedure TdmCommonFun.SetSysDateFormat; begin // 設置WINDOWS系統的短日期的格式 SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');Application.UpdateFormatSettings := False; // 設定程序本身所使用的日期時間格式 LongDateFormat := 'yyyy-MM-dd'; ShortDateFormat := 'yyyy-MM-dd'; LongTimeFormat := 'hh:nn:ss'; ShortTimeFormat := 'hh:nn:ss'; DateSeparator := '-'; TimeSeparator := ':'; end; 在程序初始化的時候執行上面的代碼，不論WINDOWS的短日期格式怎樣設置都不再影響 DELPHI程序。xe2以上版本，代碼得改改：procedure SetSysDateFormat; varfs: TFormatSettings; begin// 設置WINDOWS系統的短日期的格式SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');Application.UpdateFormatSettings := False;// 設定程序本身所使用的日期時間格式fs.LongDateFormat := 'yyyy-MM-dd';fs.ShortDateFormat := 'yyyy-MM-dd';fs.LongTimeFormat := 'hh:nn:ss';fs.ShortTimeFormat := 'hh:nn:ss';fs.DateSeparator := '-';fs.timeSeparator := ':'; end;// ---------------------------------------------------------------- // 通用于 Delphi 各個版本的系統時間格式設置函數 // ---------------------------------------------------------------- procedure SetSysDateFormat; begin// 設置WINDOWS系統的短日期的格式SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');Application.UpdateFormatSettings := False;// 設定程序本身所使用的日期時間格式{$IF CompilerVersion >= 21.0}with FormatSettings do{$ELSE}beginLongDateFormat := 'yyyy-MM-dd';ShortDateFormat := 'yyyy-MM-dd';LongTimeFormat := 'hh:nn:ss';ShortTimeFormat := 'hh:nn:ss';DateSeparator := '-';timeSeparator := ':';end;{$IFEND} end;

轉載于:https://my.oschina.net/u/582827/blog/1624816

總結

以上是生活随笔為你收集整理的让delphi程序不受WINDOWS日期格式的影响的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。