Many thanks Seweryn, i use it
var ANow,AThen : TDateTime;
begin
ANow:=now;
AThen:=EncodeDateTime(1970, 1, 1, 0, 0, 0, 0);
result:=IntTostr(SecondsBetween(ANow,AThen)-7200);//7200 for GMT +2
end;
Seweryn Walentynowicz a écrit :
On Mon, Jun 04, 2007 at 09:27:55AM +0200, patrick feillant wrote:
MilliSecondsBetween<http://lazarus-ccr.sourceforge.net/fpcdoc/rtl/dateutils/millisecondsbetween.html>
Maybe simpler Secondsbetween() ? :o)
2007/6/4, TOUZEAU DAVID <[EMAIL PROTECTED]>:
Is there a function that help me to calculate seconds since 1970 year ?
--
David Touzeau -------------------------- Linux Ubuntu Dapper 6.0.6
FreePascal-Lazarus,perl,delphi,php icq:160018849
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
