[DUG] Daylight savings

[Alister Christie]

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).

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  DateUtils;

begin
  Writeln(DateTimeToStr(TTimeZone.Local.ToUniversalTime(StrToDateTime(
'5/4/2014 2pm'))));
  Writeln(DateTimeToStr(TTimeZone.Local.ToUniversalTime(StrToDateTime(
'12/4/2014 2pm'))));
  Readln;
end.


Outputs

5/04/2014 1:00:00 a.m.
6/04/2014 1:00:00 a.m.

in XE (incorrectly) and

5/04/2014 1:00:00 a.m.
6/04/2014 2:00:00 a.m.

in XE5 (correctly).  XE works correctly from the 13th onwards - so it's
just a problem for a week.

Does anyone have some code that does conversions to UTC correctly for
Delphi XE?

Alister Christie
Computers for People
Ph: 04 471 1849 Fax: 04 471 1266http://www.salespartner.co.nz
Follow us on Twitter http://twitter.com/salespartner
PO Box 13085
Johnsonville
Wellington
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20140403/a4d36c7b/attachment-0001.html