Clipper On Line

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.

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

Saudações,
Itamar M. Lins Jr.

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?

Olá!

JoséQuintas escreveu: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?

// 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

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

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