<div dir="ltr">I've noticed in Delphi XE that TTimeZone.Local.ToUniversalTime is a week out on daylight savings, it works correctly in XE5 however (and probably earlier versions).<div><br></div><div><div><span class="" style="font-family:'Courier New';font-size:13px;font-weight:bold;color:rgb(0,0,0)">program</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Project6</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">;</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,128,0)">{$APPTYPE CONSOLE}</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"><span class="" style="font-family:'Courier New';font-size:13px;font-weight:bold;color:rgb(0,0,0)">uses</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">SysUtils</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">,</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">DateUtils</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">;</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"><span class="" style="font-family:'Courier New';font-size:13px;font-weight:bold;color:rgb(0,0,0)">begin</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Writeln</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">DateTimeToStr</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">TTimeZone</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">.</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Local</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">.</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">ToUniversalTime</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">StrToDateTime</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,255)">'5/4/2014 2pm'</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">))));</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Writeln</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">DateTimeToStr</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">TTimeZone</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">.</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Local</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">.</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">ToUniversalTime</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">StrToDateTime</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">(</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,255)">'12/4/2014 2pm'</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">))));</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">Readln</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">;</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px">
<span class="" style="font-family:'Courier New';font-size:13px;font-weight:bold;color:rgb(0,0,0)">end</span><span class="" style="font-family:'Courier New';font-size:13px;color:rgb(0,0,0)">.</span><span style="color:rgb(0,0,0);font-family:'Courier New';font-size:13px"> </span><br>
</div><div><font face="courier new, monospace"><br></font></div><div><br></div><div>Outputs</div><div><br>
</div><div><div><font face="courier new, monospace">5/04/2014 1:00:00 a.m.</font></div><div><font face="courier new, monospace">6/04/2014 1:00:00 a.m.</font></div></div><div><br></div><div>in XE (incorrectly) and </div><div>
<br></div><div><div><font face="courier new, monospace">5/04/2014 1:00:00 a.m.</font></div><div><font face="courier new, monospace">6/04/2014 2:00:00 a.m.</font></div></div><div><br></div><div>in XE5 (correctly). XE works correctly from the 13th onwards - so it's just a problem for a week.</div>
<div><br></div><div>Does anyone have some code that does conversions to UTC correctly for Delphi XE?</div><div><br></div><div><pre cols="72">Alister Christie
Computers for People
Ph: 04 471 1849 Fax: 04 471 1266
<a href="http://www.salespartner.co.nz" target="_blank">http://www.salespartner.co.nz</a>
Follow us on Twitter <a href="http://twitter.com/salespartner" target="_blank">http://twitter.com/salespartner</a>
PO Box 13085
Johnsonville
Wellington</pre></div>
</div></div>