Český portál Delphi

DateUtils.TTimeZone

V XE byla výrazně rozšířena jednotka DateUtils přidáním podpory pro TTimeZone, doporučuji Vaší pozornosti, zvláště instanci TTimeZone.Local. Pokud potřebujete pracovat s časovými zónami tak tato třída Vám velmi ulehčí práci.

program Project25;

{$APPTYPE CONSOLE}

uses
  SysUtils, DateUtils;

var
  dt: TDateTime;
begin
    dt := Now;
    dt := TTimeZone.Local.ToUniversalTime(dt);
    writeln(DateTimeToStr(dt));
    writeln(TTimeZone.Local.IsDaylightTime(Now));
end.

Datum: 2014-05-29 21:36:00 Tagy: RTL

Novinky