forum.lissyara.su

Код: Выделить всё

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;