Convertir fechas

[jlrdz]

Buenos dias y saludos primero que nada, tengo una duda en cuanto a convertir un string a fecha, ya he visto varios temas en este foro donde tratan esto pero no he podido corregir este problema, mi procesidimiento es el siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var f:TDate;
begin

f:=strtodate('13/06/2011');

showmessage(datetostr(f));

end;

No sé en donde estoy mal, ya que me aparece el error que me indica que la fecha 13/06/2011, no es una fecha valida, tengo entendido que me funciona si la fecha estuviera asi : 06/13/2011, pero como le hago para pasarla a esta manera y luego poder convertirla, saludos y espero puedan ayudarme, gracias.

[*Caro*]

Hola jlrdz, para que no tengas problemas con la configuración regional podrías utilizar la función EncodeDate:

Código Delphi [-]
 f := EncodeDate(2011,6,13);
 showmessage(datetostr(f));

Saluditos

[jlrdz]

Gracias por tu respuesta!, lo he entendido pero y si en lugar de poner la fecha fija y la recupero desde un campo de texto TEdit y tiene como mascara xx/xx/xxxx, es valido ponerlo dentro de EncodeDate(micampo.text)?

[*Caro*]

Empezado por jlrdz

...........si en lugar de poner la fecha fija y la recupero desde un campo de texto TEdit y tiene como mascara xx/xx/xxxx, es valido ponerlo dentro de EncodeDate(micampo.text)?

No, porque encodedate necesita 3 parámetros de tipo Word, si lo recuperas de un Edit puedes dividir tu cadena:

Código Delphi [-]
    anio, mes, dia : Word;
    fechastr : String;
begin
 fechastr := Edit.Text;

 dia := StrToInt(Copy(fechastr, 1, 2));
 mes := StrToInt(Copy(fechastr, 4, 2));
 anio := StrToInt(Copy(fechastr, 7, 4));
 
 f := EncodeDate(anio, mes, dia);

Saluditos