vložil Radek Červinka
29. května 2014 22:36
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.
25ed6234-880b-4633-8e2f-a0ec498562f6|5|5.0
Tagy: RTL
Novinky
RSS