Unix epoch time em segundos AdvPL

Boa noite,

Existe alguma função em AdvPL, que retorna o Unix epoch time em segundos?

Obrigado.

Cristian Regazzo

Bom dia/tarde/noite :-)

Não conheço um comando direto, mas dá para fazer em uma linha puxando o datestamp do servidor:

_nepoch := int(seconds()+((date() - stod("19700101"))*86400)+10800)

No qual 10800 são as 3 horas de diferença do nosso fuso com o GMT, aí pode colocar por parâmetro ou ler em algum arquivo de configuração de fuso do servidor se precisar ajustar pro horário de verão.

Nesse caso você pode usar a função

FwTimeStamp()

com o valor do 1º parametro igual a 4

Um exemplo com a date hora atual


FwTimeStamp(4, Date() , Time() )

Documentação https://tdn.totvs.com/display/public/framework/FWTimeStamp

Sintaxe

FWTimeStamp([ nType ], [ dDate ], [ cTime ])-> NIL