<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On 20 July 2016 at 10:08, Denis Kozlov <span dir="ltr"><<a href="mailto:dezlov@gmail.com" target="_blank">dezlov@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div><div><div></div>Is it possible to move NowUTC from LazUTF8SysUtils.NowUTC to FPC, e.g. DateUtils?<br><br></div>LocalTimeToUniversal(Now) is inefficient and suffers from a race condition, but can still be used as a fallback implementation<font color="#888888">.</font></div></div></blockquote><div><br></div><div>So, below is a tidy cross-platform implementation of NowUTC:<br><br><span style="font-family:monospace,monospace">function NowUTC: TDateTime;<br>{$ifdef WINDOWS}<br>var<br>  SystemTime: TSystemTime;<br>begin<br>  Windows.GetSystemTime(SystemTime);<br>  Result := SystemTimeToDateTime(SystemTime);<br>end;<br>{$else}<br>{$ifdef UNIX}<br>var<br>  tp: timeval;<br>begin<br>  fpgettimeofday(@tp,nil);<br>  Result := UnixToDateTime(tp.tv_sec);<br>end;<br>{$else}<br>begin<br>  // Beware, it suffers from a race condition!<br>  Result := LocalTimeToUniversal(Now);<br>end;<br>{$endif}</span><br><br><br></div></div>Denis<br></div></div>