NET_Time

4D v18

NET_Time


NET_Time ( nomeServidor ; data ; tempo ; offset ) -> Resultado

Parâmetro	Tipo	Descrição
nomeServidor	String	Nome ou endereço IP do servidor
data	Data	Data
tempo	Inteiro longo	Hora, expressada em segundos a partir da meia noite
offset	Inteiro	Horas de deslocamento
Resultado	Inteiro	Código de erro

Descrição

O comando NET_Time permite recuperar a data e a hora atual da máquina e aplicar o offset necessário para converter a hora local do usuário.

Nota: Este comando não afeta o relógio interno do ordenador.

nomeServidor é o nome ou o endereço IP de um servidor NTP (Network Time Protocol).

data devolve a data (em formato 4D), depois de aplicado o offset.

hora devolve a hora depois de aplicado o offset. Este valor representa os segundos desde a meia noite na data. Ver o exemplo a continuação de um método de conversão deste valor a uma variável hora 4D.

offset é o número de horas a somar ou restar dos valores recebidos. Os servidores de tempo de Internet expressam seus valores em hora universal (Greenwich Mean Time). Inclusive se o servidor de tempo está em sua região geográfica, é provável que deve ser fornecido um valor de offset para compensar a diferença entre sua hora local e a hora universal.

Exemplo

O seguinte exemplo recupera a data e a hora do servidor de tempo no site "apple.com". O comando depois resta as sete horas especificadas no Offset e devolve a data e a hora resultantes (a hora se expressa como um valor inteiro longo, que pode ser convertido utilizando o comando 4D Time string, como foi visto a continuação).

 C_DATE(vNetDate)

 C_LONGINT(vNetTime)

 C_TIME(vTime)

 C_INTEGER(vOffset)

 If(ERRCHECK("NET_Time";NET_Time("www.apple.com";vNetDate;vNetTime;-7)))

    vTime:=Time(Time string(vNetTime)) `Converte a hora inteiro longo em hora 4D

 End if