Conversion de String a fecha

[pmtzg]

mi pregunta es la siguiente

si tengo en delphi


Código Delphi [-]
fecha : TdateTime;
str : string;
str:= '01/01/2007';

fecha :=StrtoDate(str);
edit1.text:=FormatDateTime('dd/MMM/yy',fecha);





me convierte el string a formato fecha y lo formateo
y queda de la siguiente manera 01/Ene/07

pero si lo quiero regresar de formato 01/Ene/07 a 01/01/07
Como le Hago , hay alguna opcion o funcion ... gracias

[marcoszorrilla]

Código Delphi [-]
Edit1.Text:=FormatDateTime('dd/mmm/yyyy',Fecha);
Edit1.Text:=FormatDateTime('dd/mm/yyyy',Fecha);

Un Saludo.

[pmtzg]

me marca error 01/Ene/07 is not valid date

ya lo hice

gracias

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
Fecha:Tdate;
begin
Fecha:=Date;
edit1.text:=FormatDateTime('dd/MMM/yy',fecha);
edit2.text:=FormatDateTime('dd/MM/yy',fecha);
end;

Un Salud.

[pmtzg]

me sigue marcando error +

me dice raised exeption class EconvertError whit message "01/Ene/07"
is not valid date

[marcoszorrilla]

Date cuenta que trabajo con la variable fecha, no con el Edit, puesto que el texto que contiene no puede transformarse a fecha.

Un Saludo.

[pmtzg]

nada mas que

fecha :Tdate;

y por decir converti una variable 0 si quieres edit1.text de

01/01/07 a 01/Ene/07

bien ahora deseo hacerlo a la inversa

de 01/Ene/07 A 01/01/07

el ejemplo q me marcas es correcto
solo que fecha tabaja con el formato 01/01/07 y no con 01/Ene/07

si me doy a entender ,
muchas gracias por tu apoyo Amigo ...

[[egostar]]

No se si haya una función que te haga lo que quieres, aqui te pongo un código que hace lo que necesitas, puede ser que haya algo mejor, pero esto te servirá.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  Meses : Array [1..12] of String =
          ('ENE','FEB','MAR','ABR','MAY','JUN',
           'JUL','AGO','SEP','OCT','NOV','DIC');
var
  Fecha,Mes: String;
  MesI,I: Integer;
begin
  Fecha := '01/May/07';
  Mes   := Copy(Fecha,4,3);
  For I := 1 to 12 do begin
      if UpperCase(Mes) = Meses[i] then
         MesI  := I;
  end;
  ShowMessage(Copy(Fecha,1,3)+Format('%.*d',[2,MesI])+Copy(Fecha,7,3));
end;

Salud OS

[pmtzg]

si me funciono

una pregunta Más
que pasa si el sistema Operativo de la Compu esta en Ingles
ahi fallaria el arreglo de Meses ???

Pd. Estoy Apenas aprendiendo Delphi y es una maravilla

[[egostar]]

Empezado por pmtzg

si me funciono

una pregunta Más
que pasa si el sistema Operativo de la Compu esta en Ingles
ahi fallaria el arreglo de Meses ???

Pd. Estoy Apenas aprendiendo Delphi y es una maravilla

Pues le enseñas a hablar en ingles al arreglo de meses

Bueno, que te parece así:

Código Delphi [-]
  Meses : Array [1..16] of String =
          ('ENE','FEB','MAR','ABR','MAY','JUN',
           'JUL','AGO','SEP','OCT','NOV','DIC',
           'JAN','APR','AUG','DEC');

Salud OS