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í.
|