UTC

[crisvam]

Boi noite turma,

Alguem poderia, por favor, me informar se tem como pegar A data no formato UTC (Universal Coordinated time) inclusive o TDZ, diretamente do sistema. Windows 7 no meu caso.

Grato a todos

[kapiaba]

Não. A única coisa que você pode fazer, é SINCRONIZAR o Relógio do rWindows.

[sambomb]

Por padrão o horário brasileiro é GMT -3, no caso o computador estando com a hora certa bastaria pegar Time() e acrescentar 3 horas.

Ou seja:
nSecs := Secs(Time()) + (3*60*60)
cHoraNova := TString(nSecs)

Vai faltar o tratamento da data para quando já tiver passado de 9 da noite mas a base é essa ae.

[kapiaba]

Por padrão o horário brasileiro é GMT -3, no caso o computador estando com a hora certa bastaria pegar Time() e acrescentar 3 horas.

Ou seja:

nSecs := Secs(Time()) + (3*60*60)

cHoraNova := TString(nSecs)

Vai faltar o tratamento da data para quando já tiver passado de 9 da noite mas a base é essa ae.

Samb. se o rWindows não estiver SINCRONIZADO, sua função não retornará correta ou estou errado?

Neste caso deve-se pegar a hora de um site seguro tipo:

// VERIFICA A DATA E HORA DE BRASILIA E CHECA SE ESTA IGUAL AO DO COMPUTADOR

FUNCTION HrDtInternet()
 
   LOCAL oHttp, ;
         cResp1       := "", ;
         cResp        := "", ;
         cHora      := "", ;
         cData      := ""
   LOCAL cHoraNet
 
 
   IF .NOT. IsInternet()
 
      RETURN( { DtoC( Date() ), Time() } )
 
   ENDIF
 
   Try
      oHttp := CreateObject("winhttp.winhttprequest.5.1")
      oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.F.)
      oHttp:Send()
      cResp1 := oHttp:ResponseText()
   Catch
      Return( {DtoC(Date()), Time()} )
   End Try
    *
    * MemoWrit( "HoraNet.txt", cResp1 )
    *
    *<input name="mostrador" type="text" size="25" value="19/09/2011 - 01:02:00 PM" />
    *
   cResp     := SubStr( cResp1 , At( '<input name="mostrador"', cResp1 ) )
   cResp     := Substr( cResp     , 1, At( '/>', cResp )-2 )
   cDados    := SubStr( cResp  , At( 'value="', cResp )+7 )
   *
   cData := SubStr( cDados,  1, 10)
   cHora := SubStr( cDados, 14 )
 
   *
 
   If "PM" $ cHora .AND. SubStr(cHora,1,2) != "12"
      cHora := Str(Val(SubStr(cHora,1,2))+12,2)+SubStr(cHora,3,7)
   Endif
 
   wDIA := VAL(SUBSTR( cData, 1, 2 ) )
 
   wMES := VAL(SUBSTR( cData, 4, 2 ) )
   wANO := VAL(SUBSTR( cData, 7, 4 ) )
 
   wHOR := VAL(SUBSTR( cHora, 1, 2 ) )
   wMIN := VAL(SUBSTR( cHora, 4, 2 ) )
   wSEG := VAL(SUBSTR( cHora, 7, 2 ) )
 
   //? wDIA, wMES, wANO
   //? wHOR, wMIN, wSEG
 
   // NAO FUNCIONA EM rWINDOWS 7
   //SETNEWTIME( wHOR, wMIN, wSEG )
 
   //SETNEWDATE( wANO, wMES, wDIA )
 
RETURN( { cData, cHora } )

abs,

[sambomb]

o computador estando com a hora certa

Kapiaba, pegando de um site o melhor para ele seria pegar de um local com gmt 0 para facilitar

[kapiaba]

Samb, eu só conheçõ este:

http://www.horacerta.com.br/index.php

Veja no GET, que ele pode escolher a Cidade que ele quer a hora.

oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.F.) // neste caso, SÃO PAULO.

Você conhece outro?

abs,

[emotta]

Lembrando que quando estiver em periodo de horário de verão o GMT é 2hrs

Por padrão o horário brasileiro é GMT -3, no caso o computador estando com a hora certa bastaria pegar Time() e acrescentar 3 horas.

Ou seja:
nSecs := Secs(Time()) + (3*60*60)
cHoraNova := TString(nSecs)

Vai faltar o tratamento da data para quando já tiver passado de 9 da noite mas a base é essa ae.

[kapiaba]

Eduardo, veja isto, eu acho que o Samb, está correto:

http://24timezones.com/pt_horamundial/brasilia_hora_local.php

abs,

[sambomb]

Samb, eu só conheçõ este:

http://www.horacerta.com.br/index.php

Veja no GET, que ele pode escolher a Cidade que ele quer a hora.

oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.F.) // neste caso, SÃO PAULO.

Você conhece outro?

abs,

Só pegar a data de uma cidade com GMT 0 tipo Lisboa ou Londres.

[evertonlb]

Caras.. vou dar um pitaco aqui.... talvez seja uma dica meio furada pro momento mas, lá vai...

Tem como sincronizar o computador com o Relógio Atômico Brasileiro do Observatório Nacional... tive dando uma olhada nestes dias porque tenho um projeto que vai depender muito da hora certa... tem um aplicativo que se instala no computador e ele sincroniza a máquina com o Relógio Atômico Brasileiro a cada 15 minutos, sincroniza inclusive milisegundos. Na realidade nem mexi muito!!

http://pcdsh01.on.br/

Para ver a hora certa, com UTC -5, UTC -4, UTC -3 e UTC -2 é aqui.: http://pcdsh01.on.br/HoraLegalBrasileira.asp

Att.