[fpc-pascal] Get Timestamp since 1970 (linux)

[TOUZEAU DAVID]

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 <david.touzeau at fr.kaspersky.com>:
>>     
>>> 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