Convert to Delphi TDateTime time format to GMT time

From , 4 Years ago, written in Delphi (Object Pascal), viewed 51 times.

function GMTToLocalTime(GMTTime: TDateTime): TDateTime;
var
  GMTST: Windows.TSystemTime;
  LocalST: Windows.TSystemTime;
begin
  SysUtils.DateTimeToSystemTime(GMTTime, GMTST);
  SysUtils.Win32Check(
    Windows.SystemTimeToTzSpecificLocalTime(
      nil, GMTST, LocalST
    )
  );
  Result := SysUtils.SystemTimeToDateTime(LocalST);
end;
//delphi/2171

Reply to "Convert to Delphi TDateTime time format to GMT time"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

https://burned.cc - Burn After Reading Website

Pastebin.vip

Convert to Delphi TDateTime time format to GMT time

Reply to "Convert to Delphi TDateTime time format to GMT time"