Собственно САБЖ.
Желательно кросс-палтформенный вариант, если есть.
Если такового нет, то кто для чего знает подскажите пожалуйста.
Модератор: Модераторы
procedure TimeZoneInit;
var
t: TTimeZoneInformation;
b: Integer;
begin
IsWinter:=GetTimeZoneInformation(t)=TIME_ZONE_ID_STANDARD;
if IsWinter then
begin
b:=(t.Bias+t.StandardBias)*(-1);
ZoneName:=UTF8Encode(t.StandardName);
end
else
begin
b:=(t.Bias+t.DaylightBias)*(-1);
ZoneName:=UTF8Encode(t.DaylightName);
end;
if b>0 then
ZoneName:=ZoneName+' (UTC +'
else
ZoneName:=ZoneName+' (UTC -';
b:=abs(b);
ZoneName:=ZoneName+Format('%d:%0.2d)',[b div 60,b-(b div 60)*60]);
if IsWinter then
ZoneName:=ZoneName+' Зима'
else
ZoneName:=ZoneName+' Лето';
end;
procedure TimeZoneInit;
begin
IsWinter:=not tzdaylight;
if IsWinter then
ZoneName:=tzname[tzdaylight]+' - Зима'
else
ZoneName:=tzname[tzdaylight]+' - Лето'
end;
function TimeZoneBias: integer;
var
t: TTime_T;
UT: TUnixTime;
begin
__time(@T);
localtime_r(@T, UT);
Result := ut.__tm_gmtoff div 60;
end;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4