PROCEDURE HoraAtual()
IF HTTPRequest("https://www.horario-brasilia.com/")=True THEN
sResultado is string = HTTPGetResult()
testea is string = UTF8ToAnsi(sResultado)
sData is string = XMLExtractString(testea,"strong")
sHora is string = XMLExtractString(testea,"p",2)
sData = NoSpace(ExtractString(sData,2, ","))
sData = Upper(Replace(sData," de ","/",IgnoreCase))
sMes is string = Upper(ExtractString(sData,2, "/"))
sMes = sMes[[1 TO 3]]
nMes is int = Position("JANFEVMARABRMAIJUNJULAGOSETOUTNOVDEZ", sMes, 1, FromBeginning)
nMes = ((nMes-1)/3)+1
sData = (ExtractString(sData,3, "/")+NumToString(nMes,"02d")+ExtractString(sData,1, "/"))
dDate is Date = sData
tTime is Time = StringToTime(sHora,"HH:MM:SS")
sData = DateToString(dDate, "DDDD, DD de MMMM de YYYY")
STC_Hora = sData + CR + CR+ TimeToString(tTime,"HH:MM:SS")
GLO_HORA = tTime
GLO_DATA = dDate
ELSE
STC_Hora = "PROBLEMAS PARA PEGAR A HORA BRASÍLIA"
END
RETURN