Windev Date Source Example

windev_date_ex.txt

EEnumPériode est une Enumération
	Aucune = 0
	Aujourdhui = 1
	JourPrécédent = 2
	SemaineEnCours = 3
	SemaineFlottante = 4
	SemainePrécédente = 5
	MoisEnCours = 6
	MoisFlottant = 7
	MoisPrécédent = 8
	AnnéeEnCours = 9
	AnnéeFlottante = 10
	AnnéePrécédente = 11
FIN

ListeAjoute(COMBO_Période, "Période prédéfinie" + gLien(EEnumPériode.Aucune))
ListeAjoute(COMBO_Période, "Aujourd'hui" + gLien(EEnumPériode.Aujourdhui))
ListeAjoute(COMBO_Période, "Hier" + gLien(EEnumPériode.JourPrécédent))
ListeAjoute(COMBO_Période, "Semaine en cours" + gLien(EEnumPériode.SemaineEnCours))
ListeAjoute(COMBO_Période, "Semaine flottante" + gLien(EEnumPériode.SemaineFlottante))
ListeAjoute(COMBO_Période, "Semaine précédente" + gLien(EEnumPériode.SemainePrécédente))
ListeAjoute(COMBO_Période, "Mois en cours" + gLien(EEnumPériode.MoisEnCours))
ListeAjoute(COMBO_Période, "Mois flottant" + gLien(EEnumPériode.MoisFlottant))
ListeAjoute(COMBO_Période, "Mois précédent" + gLien(EEnumPériode.MoisPrécédent))
ListeAjoute(COMBO_Période, "Année en cours" + gLien(EEnumPériode.AnnéeEnCours))
ListeAjoute(COMBO_Période, "Année flottante" + gLien(EEnumPériode.AnnéeFlottante))
ListeAjoute(COMBO_Période, "Année précédente" + gLien(EEnumPériode.AnnéePrécédente))

COMBO_Période = 0





eValeur est une EEnumPériode = EnumérationDepuisValeur(EEnumPériode, COMBO_Période..ValeurMémorisée)

SI eValeur<>EEnumPériode.Aucune ALORS
	Mettre_A_Jour_Dates(eValeur)	
FIN

COMBO_Période = 0





PROCÉDURE Mettre_A_Jour_Dates(ePériode est un EEnumPériode)

dDateDébut est une Date
dDateFin est une Date

SELON ePériode
	CAS EEnumPériode.Aucune	// Titre de la combo
	
	CAS EEnumPériode.Aujourdhui
		dDateDébut = DateSys()
		dDateFin = DateSys()
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()
		
	CAS EEnumPériode.JourPrécédent
		dDateDébut = DateSys()
		dDateFin = DateSys()
		dDateDébut..Jour -= 1
		dDateFin..Jour -= 1
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.SemaineEnCours
		dDateDébut = PremierJourDeLaSemaine(DateSys())
		dDateFin = DernierJourDeLaSemaine(DateSys())
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.SemaineFlottante
		dDateDébut = DateSys()
		dDateFin = DateSys()
		dDateDébut..Jour -= 6
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.SemainePrécédente
		dDateDébut = DateSys()
		dDateDébut..Jour -= 7
		dDateFin = DernierJourDeLaSemaine(dDateDébut)
		dDateDébut = PremierJourDeLaSemaine(dDateDébut)
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.MoisEnCours
		dDateDébut = PremierJourDuMois(DateSys())
		dDateFin = DateSys()
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.MoisFlottant
		dDateDébut = DateSys()
		dDateDébut..Mois -= 1
		dDateFin = DateSys()
		SAI_Date_Début = dDateDébut
		SAI_Date_Fin = dDateFin
		Mettre_A_Jour_Jour_En_Lettre()		
		
	CAS EEnumPériode.MoisPrécédent
		
	CAS EEnumPériode.AnnéeEnCours
	
	CAS EEnumPériode.AnnéeFlottante
		
	CAS EEnumPériode.AnnéePrécédente
		
	AUTRE CAS
FIN