Unixタイムスタンプを取得するには？ (ID:36141)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 だよね function DateTimeToUnix(aDateTime: TDateTime): Integer; begin result := Round((aDateTime - StrToDate('1970/01/01')) * (60*60*24)); end;