Procedure ModifierHeure(HD : Nul Ou Date, HF : Nul Ou Date);
Les paramètres HD et HF sont les nouvelles heures de début et de fin de connexion. Si HD ou HF sont Nul, alors la connexion n'aura plus d'intervalle horaire de connexion aussi la connexion pourra être utilisée à n'importe quelle heure.
Principal
/*******/
Variable
/******/
H : Nul Ou Date;
Debut
...
LireUtilisateurCourant().ModifierHeure(Date("1-1-1 9:0:0"), Date("1-1-1 18:0:0"));
...
/* Ecrit l'heure de debut de connexion de l'utilisateur courant. */
H=LireUtilisateurCourant().CalendrierDeConnexion.HeureDebut;
Ecran.Ecrire(H, "%HH:%Mi:%S");
/* Ecrit l'heure de fin de connexion de l'utilisateur courant. */
H=LireUtilisateurCourant().CalendrierDeConnexion.HeureFin;
Ecran.Ecrire(H, "%HH:%Mi:%S");
...
Fin Principal
- | - | - | - | - | - | - | - | - |