Код: Выделить всё
Function IsSunnyTime:boolean;
var
Year, Month, Day, DOW: Word;
sdate, wdate : Tdatetime;
begin
result:=false;
DecodeDate(now,Year,month,day);
DecodeDateFully(EncodeDate(Year, 3, 31), Year, Month, Day, DOW);
sdate := EncodeDate(Year, 3, 32 - DOW);
DecodeDateFully(EncodeDate(Year, 10, 31), Year, Month, Day, DOW);
wdate := EncodeDate(Year, 10, 32 - DOW);
if (now >= sdate) and (now < wdate) then result:=true;
end;
function GetTimeZone: integer;
var
TimeZone: TTimeZoneInformation;
begin
GetTimeZoneInformation(TimeZone);
Result := TimeZone.Bias div -60;
if IsSunnyTime then Result:=TimeZone.Bias div -60 +1;
end;