|
|
|
|
|
|
|
|
|
version 6.5
NET_Time (nomServeur; date; heure; décalage) 
Entier
| Paramètre | Type | Description | |
| nomServeur | Alpha | | Nom ou adresse IP du serveur NTP |
| date | Date |  | Date |
| heure | 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 date 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_ENTIER LONG(vHeureNet)
C_HEURE(vHeure)
C_ENTIER(vDécalage)
Si (VérifErreur ("Heure_Net";NET_Time ("www.apple.com"; vDateNet; vHeureNet; -7)))
vHeure:=Heure(Chaine heure(vHeureNet)) `Convertit l'heure entier long en heure 4D
Fin de si
Note : La méthode VérifErreur est détaillée dans la description de la commande IT_ErrorText.
Référence
|
|
|
|
|
|
|
|
|