conversion de fecha texto a fecha formato date

[fidel]

Si sabes que el formato es siempre este "sep 06 2007 12:00am" vas cogiendo con copy cada zona correspondiente al mes, dia, año y hora y lo vas trasformando a número y luego juntarlo con encodedate.

Seudocódigo

sFecha := 'sep 06 2007 12:00am';
sMeses := 'ene feb mar abr may jun jul ago sep oct nov dic';

// coger el nombre del mes y ver que posición tiene en la cadena sMeses
iPosición := Pos( copy(sFecha,1,3) , sMeses);
Si iPosición es 1 el mes es el 1
Si iPosición es 5 el mes es el 2
Si iPosición es 9 el mes es el 3
Si iPosición es 13 el mes es el 4
etc

// el mes con copy y tranformarlo a número
StrtoInt( Copy(sFecha,5,2) );

// el año tambíen con copy cogiendo 4 caracteres desde la posición 8 y transformándolos a número

// la hora igual buscando la posición que tenga.

// luego juntarlo todo con encodedate

Más o menos podría ser así.