1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
fonction relancerAbonnements(): Collection de Abonnement
Var mesAbonnements : Collection de Abonnement
i, nbrAbonnements, nbJoursDiff : Entier
IAbonnement : Abonnements
Debut
nbrAbonnements <- lesAbonnements.cardinal()
Pour i de 1 à nbrAbonnements
IAbonnement <- lesAbonnements.extraireObjet(i) nbJoursDiff <- Date.aujourdhui().différence(IAbonnement.getDateFin())
Si nbJoursDiff < 30 ET nbJoursDiff > 0
Alors
mesAbonnements.ajouterObjet(IAbonnement)
Finsi
FinPour
relancerAbonnements <- mesAbonnements
Fin |
Partager