'23/02/2011 12:34:56'無效日期和時間

Question

在我的代碼中，我遇到了一個問題。示例代碼：

var 
    d1: tdatetime 
begin 
    d1 := strtodatetime('23/02/2011 12:34:56'); 
end; 

，但它給了錯誤：

'23/02/2011 12:34:56' is not valid date and time

出了什麼問題我在做什麼？

Answer 1

的StrToDateTime函數使用ShortDateFormat和DateSeparator的日期部分和LongTimeFormat和TimeSeparator的時間部分轉換。所以你的字符串必須與這些變量匹配才能將字符串轉換爲TDateTime。相反，您可以使用StrToDateTime和TFormatSettings參數來解析字符串。

function StrToDateTime(const S: string; const FormatSettings: TFormatSettings): TDateTime; 

檢查該樣本

Var 
StrDate : string; 
Fmt  : TFormatSettings; 
dt  : TDateTime; 
begin 
fmt.ShortDateFormat:='dd/mm/yyyy'; 
fmt.DateSeparator :='/'; 
fmt.LongTimeFormat :='hh:nn:ss'; 
fmt.TimeSeparator :=':'; 
StrDate:='23/02/2011 12:34:56'; 
dt:=StrToDateTime(StrDate,Fmt); 

Answer 2

這是由於代碼中的日期/時間格式與您的區域設置的日期/時間格式不匹配所致。

從文檔（D2009）：

The S parameter must use the current locale's date/time format. In the US, this is commonly MM/DD/YY HH:MM:SS format. Specifying AM or PM as part of the time is optional, as are the seconds. Use 24-hour time (7:45 PM is entered as 19:45, for example) if AM or PM is not specified.

如果您使用的是老德爾福，StrToDateTime可能要求特定的格式。從文檔（在這種情況下D5）：

The S parameter must be in the MM/DD/YY HH:MM:SS format. Specifying AM or PM as part of the time is optional, as are the seconds. Use 24-hour time (7:45 PM is entered as 19:45, for example) if AM or PM is not specified.

Answer 3

使用VarToDateTime可能是簡單了很多，它只是工作開箱：

uses Variants; 

newDateTime := VarToDateTime('23/02/2011 12:34:56');