datetime delphi format

La conversión con StrToDateTime y TFormatSettings no funciona

Question

Este código debería funcionar en Delphi XE2, pero da un error "no es una fecha y hora válidas" en la conversión de StrtoDateTime:

procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
d: TDateTime;
FmtStngs: TFormatSettings;
begin
GetLocaleFormatSettings(GetThreadLocale, FmtStngs);
FmtStngs.DateSeparator := #32;
FmtStngs.ShortDateFormat := ''dd mmm yyyy'';
FmtStngs.TimeSeparator := '':'';
FmtStngs.LongTimeFormat := ''hh:nn'';
s := FormatDateTime('''', Now, FmtStngs);
d := StrToDateTime(s, FmtStngs);
end;

¿Alguna pista?

Answer 1

Si desea convertir algunos formatos de fecha y VarToDateTime especiales, debería usar mejor VarToDateTime lugar de StrToDateTime. Solo eche un vistazo a la implementación de ambos y reconocerá que StrToDateTime es de alguna manera ... y VarToDateTime le preguntará al sistema operativo si no puede determinarlo por sí mismo.

Esto funciona con Delphi XE3 (pero también debería funcionar con versiones anteriores):

procedure TForm2.Button1Click( Sender: TObject );
var
s: string;
d: TDateTime;
FmtStngs: TFormatSettings;
begin
GetLocaleFormatSettings( GetThreadLocale, FmtStngs );
FmtStngs.DateSeparator := #32;
FmtStngs.ShortDateFormat := ''dd mmm yyyy'';
FmtStngs.TimeSeparator := '':'';
FmtStngs.LongTimeFormat := ''hh:nn'';
s := FormatDateTime( '''', Now, FmtStngs );
d := VarToDateTime( s );
end;

Answer 2

Tienes dos problemas

1. No puede usar un WhiteSpace como DateSeparator, porque las rutinas internas para analizar la cadena usan este carácter para determinar las partes de fecha y hora de la cadena.

2. La función StrToDateTime no funciona cuando la parte de los meses usa la cadena mmm , esto se informa en este QC 23301