summaryrefslogtreecommitdiff
path: root/rtl/win
diff options
context:
space:
mode:
authorondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-11-04 09:34:08 +0000
committerondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-11-04 09:34:08 +0000
commitacec531a66ef707364df5457ce89510f4920dd2e (patch)
tree92936474bf745bd7fe7624c6d350ba058d8e4604 /rtl/win
parentfabbd37b94ca0c1c2c9f1e20f53312232f0e0a32 (diff)
downloadfpc-acec531a66ef707364df5457ce89510f4920dd2e.tar.gz
* introduce NowUTC() and GetUniversalTime()
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47306 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/win')
-rw-r--r--rtl/win/sysutils.pp6
1 files changed, 6 insertions, 0 deletions
diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index c68aac4ff4..fe8c1dd787 100644
--- a/rtl/win/sysutils.pp
+++ b/rtl/win/sysutils.pp
@@ -813,6 +813,12 @@ begin
windows.Getlocaltime(SystemTime);
end;
+function GetUniversalTime(var SystemTime: TSystemTime): Boolean;
+begin
+ windows.GetSystemTime(SystemTime);
+ Result:=True;
+end;
+
function GetLocalTimeOffset: Integer;
var