NET_Time

4D Internet Commands v16

NET_Time


NET_Time ( nomServeur ; date ; délai ; décalage ) -> Résultat

Paramètre	Type	Description
nomServeur	Chaîne	Nom ou adresse IP du serveur NTP
date	Date	Date
délai	Entier long	Heure, exprimée en secondes depuis minuit
décalage	Entier	Nombre d'heures de décalage
Résultat	Entier	Code d'erreur

Description

La commande NET_Time permet de récupérer la date et l'heure courantes d'une horloge réseau sur Internet, et de leur appliquer le décalage nécessaire pour la conversion en heure locale de l'utilisateur.

Note : Cette commande n'affecte pas l'horloge interne de l'ordinateur.

Le paramètre nomServeur contient le nom ou l'adresse IP d'un serveur NTP (Network Time Protocol).

Le paramètre laDate retourne la date (au format date 4D) fournie par le serveur NTP et à laquelle le décalage a été appliqué.

Le paramètre heure retourne l'heure fournie par le serveur NTP, après l'application du décalage. Cette valeur représente le nombre de secondes écoulées depuis minuit à cette date. L'exemple suivant propose une méthode de conversion de cette valeur en une variable heure 4D.

Le paramètre décalage indique le nombre d'heures à ajouter ou à soustraire des valeurs reçues. Les horloges réseau d'Internet expriment leurs valeurs en temps universel (TU). Même si l'horloge réseau située est dans votre fuseau horaire, il est probable que vous deviez fournir une valeur de décalage pour compenser la différence entre votre heure locale et le temps universel.

Exemple

L'exemple suivant récupère la date et l'heure de l'horloge réseau située sur le site "apple.com". La commande soustrait ensuite les sept heures de décalage spécifiées et renvoie la date et l'heure résultantes (l'heure est exprimée sous forme d'un entier long, qui peut ensuite être converti à l'aide de la commande 4D Chaine heure, comme illustré ci-dessous).

 C_DATE(vDateNet)

 C_LONGINT(vHeureNet)

 C_TIME(vHeure)

 C_LONGINT(vDécalage)

 If(VérifErreur("Heure_Net";NET_Time("www.apple.com";vDateNet;vHeureNet;-7)))

    vHeure:=Time(Time string(vHeureNet)) //Convertit l'heure entier long en heure 4D

 End if

Note : La méthode VérifErreur est détaillée dans la description de la commande IT_ErrorText.