この発言に対し以下のコメントが寄せられています

#00302　ぜえた          さん　RE:time_t, TDateTime 間の変換






{
  time_t（Ｃの時間型）と TDateTime（Delphiの時間型）との間の変換関数でず。
  Susie plug-in の Lhasad.spi で得た値で確認しました。
}

unit time_tCF

interface

type
  time_t = Longint;

function time_tToDateTime(Time: time_t): TDateTime;
function DateTimeTotime_t(Time: TDateTime): time_t;

implementation

var
  TimeZoneInformation: TTimeZoneInformation;
  Bias: TDateTime;

const
  SecondPerDate = 24 * 60 * 60;

function time_tToDateTime(Time: time_t): TDateTime;
begin
  Result := Time / SecondPerDate + Bias;
end;

function DateTimeTotime_t(Time: TDateTime): time_t;
begin
  Result := Round((Time - Bias) * SecondPerDate);
end;

initialization
  GetTimeZoneInformation(TimeZoneInformation);
  Bias := (365 * 70 + 19) - TimeZoneInformation.Bias / (60 * 24);
end.

                                                    ぜえた (QZC05100)

Original document by ぜえた          氏 ID:(QZC05100)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。