'23/02/2011 12:34:56 'nie jest prawidłową datą i czasem

Question

W moim kodzie mam do czynienia z problemem. Przykładowy kod:

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

ale to daje błąd:

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

Co się stało z tym, co robię?

Answer 1

funkcja StrToDateTime używa ShortDateFormat i DateSeparator aby przekształcić część daty i LongTimeFormat i TimeSeparator do części czasu. więc ciąg musi być zgodny z tymi zmiennymi, aby przekonwertować ciąg na TDateTime. zamiast tego możesz użyć parametru StrToDateTime z parametrem TFormatSettings, aby przeanalizować ciąg znaków.

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

Kontrola ta próbka

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

Jest to spowodowane tym, że format daty/czasu w kodzie jest niezgodny z formatem daty/czasu dla ustawień regionalnych.

Od docs (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.

Jeśli używasz starszej Delphi, StrToDateTime może wymagać określonego formatu. Od docs (D5 w tym przypadku):

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

Korzystanie VarToDateTime może być o wiele prostsze i po prostu działa po wyjęciu z pudełka:

uses Variants; 

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