[[egostar]]

Hola sinocarlos

Pues si que está raro, el problema creo yo esta en la instrucción CAST, porque Delphi toma bien los valores.

Hice estas dos pruebas y efectivamente, '2007/05/08' nos da 39210.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fechastr: String;
  date: TDateTime;
begin
  fechastr := '2007/05/08';
  date := encodedate(strtoint(copy(fechastr,1,4)),
          strtoint(copy(fechastr,6,2)),
          strtoint(copy(fechastr,9, 2)));
  ShowMessage(FloattoStr(Date)+'-->'+DatetoStr(date));
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ShowMessage(DatetoStr(39210));
end;

Salud OS.