FONCTION iListeDateEntreDate(LOCAL sDateDebut,LOCAL sDateFin, tDate)
iInd est un entier
iDebut est un entier
iFin est un entier
iNbreDate est un entier = 0
iNbreDate=0
SI DateValide(sDateDebut) ET DateValide(sDateFin) ALORS
iDebut = DateVersEntier(sDateDebut)
iFin = DateVersEntier(sDateFin)
POUR iInd=iDebut+1 A iFin-1
TableauAjoute(tDate, EntierVersDate(iInd)
iNbreDate++
FIN
FIN
RENVOYER iNbreDate
//Utilisation
tDate est un Tableau de 0 chaînes
iTotal est un entier = 0
sDate1, sDate2 sont des chaînes
sDate1="20071231"
sDate2="20080301"
iTotal=iListeDateEntreDate(sDate1, sDate2, tDate)