Re: Dernier Jour de Semaine
Posté par R&B le 11/3/2005 8:26:05
Pour avoir les jours en fonction d'une date, voici une partie des méthodes d'une classe sur les dates.
Reste à trouver une date dans la semaine.
Utilisation :
Reste à trouver une date dans la semaine.
clDate est une classe
PUBLIC
CONSTANTE
LUNDI=1
MARDI=2
MERCREDI=3
JEUDI=4
VENDREDI=5
SAMEDI=6
DIMANCHE=7
FIN
FIN
// retourne le lundi de la semaine contenant la date en paramètre
PROCEDURE sem_lundi(_date)
RENVOYER EntierVersDate(DateVersEntier(_date)-(EntierVersJour(DateVersEntier(_date))-1))
//Retourne la date du dimanche de la semaine de _date
PROCEDURE sem_dimanche(_date)
RENVOYER EntierVersDate(DateVersEntier(:sem_lundi(_date))+6)
// retourne le jour sélectionné pour la semaine contenant la date en paramètre
PROCEDURE sem_jour(pDate,pJour=::LUNDI)
RENVOYER EntierVersDate(DateVersEntier(pdate)-(EntierVersJour(DateVersEntier(pdate))-1)+pjour-1)
Utilisation :
oDate est une clDate
oDate:sem_jour("20050311",cldate::MARDI) => 20050308Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=1983&post_id=8281