Horário de verão 2018

[JoséQuintas]

Só pra lembrar:

Neste ano o horário de verão foi alterado por decreto.
Foi alterado uma vez, foi alterado pela segunda vez mas voltaram atrás.

Preparem-se pra possíveis problemas de fuso horário com NFE, CTE, MDFE

Só nessa brincadeira, já podem estar considerando 4 fusos horários diferentes.
- tem o fuso horário normal
- tem o fuso horário de horário de verão
- tem o fuso horário alterado pelo primeiro decreto
- tem o fuso horário alterado pelo segundo decreto


E tem o fuso horário do computador, fuso horário do software, e fuso horário da SEFAZ.

[Itamar M. Lins Jr.]

Ola!
Aqui já dois me ligaram.
Tá pirando a data do envio.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Tava pensando nisso nestes dias:

Aquela função do Harbour com fuso horário que mostrou
Está correta, ou depende de atualização no Harbour?

[alxsts]

Olá!

Aquela função do Harbour com fuso horário que mostrou
Está correta, ou depende de atualização no Harbour?

Não sei a qual função se refere... seria alguma destas abaixo?

Código: Selecionar todos

// hbmk2 teste hbtip.hbc

#include "set.ch"

PROCEDURE Main()

   CLS

   Set( _SET_DATEFORMAT, "dd/mm/yyyy" )

   ? "hb_TSToStr()       ", hb_TSToStr( hb_DateTime())
   ? "hb_TSToUTC()       ", hb_TSToUTC( hb_DateTime() ) 
   ? "UTCTime()          ", UTCTime()
   ? "TimeZoneStr()      ", TimeZoneStr()
   ? "DateTimeZoneStr()  ", DateTimeZoneStr()
   ? "XMLTimeStamp()     ", XMLTimeStamp()   

   SetPos( Row() + 10, Col() )

   __Wait( "Tecle algo..." )

   RETURN
//------------------------------------------------------------------------------

FUNCTION UTCTime( dtDateTime )
 
   dtDateTime := IF( Empty( dtDateTime ), hb_DateTime(), dtDateTime )
 
   RETURN hb_NtoT( ( hb_TtoN( dtDateTime ) * 86400 - hb_UtcOffset() ) / 86400 )
//------------------------------------------------------------------------------

FUNCTION TimeZoneStr( dtDateTime )

   // hbmk2 hbtip.hbc ...
  
   dtDateTime := IF( Empty( dtDateTime ), hb_DateTime(), dtDateTime )

   RETURN( Transform( Right( tip_TimeStamp( dtDateTime ), 5 ), "@R X99:99" ) )
//------------------------------------------------------------------------------     

FUNCTION DateTimeZoneStr( dtDateTime )

   dtDateTime := IF( Empty( dtDateTime ), hb_DateTime(), dtDateTime )

   RETURN ( Stuff( hb_TsToStr( dtDateTime ), 20, 4, " UTC " + TimeZoneStr( dtDateTime ) ) )
//------------------------------------------------------------------------------     

FUNCTION XMLTimeStamp( dtDateTime )

   dtDateTime := IF( Empty( dtDateTime ), hb_DateTime(), dtDateTime )

   RETURN Stuff( hb_TsToStr( dtDateTime ), 11, 1, "T" )

//------------------------------------------------------------------------------

Referências:
Como sincronizar o relógio do Windows com o servidor de horário ntp.br
UTC – The World's Time Standard

UTCTimeZoneGMT

[JoséQuintas]

Isso.
Testei aqui.
Pelo jeito hbtip pega a informação do sistema operacional.

[JoséQuintas]

Como era esperado, hoje também imprevisto com horário de verão.
As primeiras notas a Sefaz estava rejeitando.... rs