Diferencia 2 Dias entre Tdatetime (delphi) y Datetime (SQL server)

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

[sinalocarlos]

saludos egostar

Disculpas por no contestar antes pero tengo trabajo hasta para repartir.

Pues si, el problema es que SQL server o al menos el mio (SQL Server 2000 SP3 en Ingles con el Collate SQL_Latin1_General_CP1_CI_AS por default), tiene como fecha para el 0 a '1900-01-01 00:00:00.000'

Código SQL [-]
select cast (0 as datetime)

y Delphi (Borland Developer Studio 2006 ) toma el 0 como 1899/12/30

Código Delphi [-]
ShowMessage(DatetoStr(0));

Me sambullire en los chm y mantengo infomada a la comunidad de lo que encuentre