Re: cree des feuilles horaires
Posté par drcharly93 le 18/8/2006 10:17:10
Bonjour,
Voici un exemple simple en manipulant le masque d'affiche d'une date
Dans cette portion de code on ajoute dans la base des date au format AAAAMMJJ
Dans la table d'affichage :
La colonne qui doit afficher ex: 'Mardi 01' devra être de type date
Valeur retournée : AAAAMMJJ
Masque de saisie : JJJJ JJ
Note:
JJJJ -> jour en lettre
JJ -> Numéro du jour sur 2 caractères
Voici un exemple simple en manipulant le masque d'affiche d'une date
Dans cette portion de code on ajoute dans la base des date au format AAAAMMJJ
//Ici on on a déjà testé si il fallait créer le planing
i est un entier
dDateEnCours est une Date
dDateFin est une Date
dDateEnCours..Jour = 1 //Premier jour du mois
dDateFin..Jour = 31 //Défini le dernier jour du mois 31 donner automatiquement 28 pour le mois de février
POUR i = 1 A dDateFin..Jour
dDateEnCours..Jour = i
HAjoute(Table1, dDateEnCours)
FIN
Dans la table d'affichage :
La colonne qui doit afficher ex: 'Mardi 01' devra être de type date
Valeur retournée : AAAAMMJJ
Masque de saisie : JJJJ JJ
Note:
JJJJ -> jour en lettre
JJ -> Numéro du jour sur 2 caractères
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4482&post_id=18572