Fórum ROTINA TIMEZONE PARA TODOS #597426

function BuscaTimeZone : string;
var
wUf: String;
wHorarioVerao : String;
wTZone : String;
begin
wUF := UpperCase(DM_Tabelas.Algor_EmpresaUF.Text);
if TRIM(wUF) = '' then
wUF := 'SP';
if HorarioVerao = True then
wHorarioVerao := 'SIM'
else
wHorarioVerao := 'NAO';

if (wUF = 'MT') or (wUF = 'MS') then
begin
if wHorarioVerao = 'SIM' then
wTzone := '-03:00'
else
wTzone := '-04:00';
end
else if (wUF = 'AC') then
begin
wTzone := '-05:00'
end
else if (wUF = 'FN') then // FERNANDO DE NORONHA
begin
wTzone := '-02:00'
end
else if (wUF = 'AM') or (wUF = 'RO') or (wUF = 'RR') then
begin
wTzone := '-04:00'
end
else if (wUF = 'AL') or (wUF = 'AP') or (wUF = 'BA') or (wUF = 'CE') or (wUF = 'MA') or (wUF = 'PA') or
(wUF = 'PB') or (wUF = 'MA') or (wUF = 'PI') or (wUF = 'RN') or (wUF = 'SE') then
begin
wTzone := '-03:00'
end
else begin
if wHorarioVerao = 'SIM' then
wTzone := '-02:00'
else
wTzone := '-03:00';
end;
Result := wTzone;
end;