Cantidad de segundos en una fecha

[noshy]

Hola a todos, en php hay una función TIME() que devielve la fecha y hora pero convertidas en segundos, o sea la cantidad de segundos desde el año 1900 (si mal no recuerdo hasta hoy) , quisiera saber si en delphi hay alguna funcion que me devuelva este mismo entero, es que tengo una web en php, y desde la web como de un programa de control echo en delhi necesito leer y grabar estos mismos datos.

Salu2
Noshy

[cHackAll]

Creo que Now * SecsPerDay retorna lo que esperas, aconsejo tambien revisar DateTimeToTimeStamp.

[noshy]

ok, como hago ahora paraconvertir tanto "Now * SecsPerDay" como "DateTimeToTimeStamp" a integer, porque los quiero almacenar en una variable tipo integer y me produce un error. Se puede almacenar en una var tipo TTimeStamp unicamente, pero deberia grabarlo en la tabla como integer o string si no consigo lo anterior.

[cHackAll]

Creo que un Segundos := Trunc(Now * SecsPerDay), TTimeStamp es una estructura de dos enteros, uno son los días, el otro:

var ts: TTimeStamp; Segundos: Integer;
begin
ts := DateTimeToTimeStamp(Now);
Segundos := (ts.Date * SecsPerDay) + (ts.Time div MSecsPerSec);
end;

[jhonny]

SecondsBetween tambien deberia servir, prueba lo siguiente:

ShowMessage(IntToStr(SecondsBetween(Now, StrToDate('01/01/1900'))));