Re: Dernier Jour de Semaine | Sujet: Re: Dernier Jour de Semaine par R&B sur 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.
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) => 20050308
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|