Get TimeStamp [Beginner question]

[Relative]

Hi Programmers!

How can I get the UNIX timestamp of the current time?

This doesn't work:

Code: [Select]

Writeln ('UNIX TimeStamp is : ',Now);
Relative

[motaz]

Did you mean display computer time?

Code: [Select]

Writeln ('UNIX TimeStamp is : ', DateTimeToStr(Now));


[Relative]

No, not.

I would like to get this output result:

Code: [Select]

UNIX TimeStamp is : 1272809100

[motaz]

what is it representing?
is it seconds from 1970 or something like that?

[Relative]

Yes, it is.

Here is an example UNIX time converter site: OnlineConversion.com - Unix Time Conversion

[motaz]

Add SysUtils to uses clause, and then write this code:

Code: [Select]

  Writeln('UNIX TimeStamp is : ', Trunc((Now - EncodeDate(1970, 1 ,1)) * 24 * 60 * 60));

You may find a better solution

[Relative]

Thank you Motaz!

It's working!