グリニッジ標準時に変換する方法

最近は、Delphiちょこちょこやっております。

function LocalDateTimeToUTC(Value: TDateTime): TDateTime;

var

  s: TSystemTime;

  f1, f2: TFileTime;

begin

  DateTimeToSystemTime(Value, s);

  SystemTimeToFileTime(s, f1);

  LocalFileTimeToFileTime(f1, f2);

  FileTimeToSystemTime(f2, s);

  Result := SystemTimeToDateTime(s);

end;

これだけ！