<?php
/**
* function getDatesBetween
* renvoie un tableau contenant toutes les dates, jour par jour,
* comprises entre les deux dates passées en paramètre.
* NB : les dates doivent être au format aaaa-mm-dd (mais on peut changer le parsing)
* @param (string) $dStart : date de départ
* @param (string) $dEnd : date de fin
* @return (array) aDates : tableau des dates si succès
* @return (bool) false : si échec
*/
function getDatesBetween ($dStart, $dEnd) {
    $iStart = strtotime ($dStart);
    $iEnd = strtotime ($dEnd);
    if (false === $iStart || false === $iEnd) {
        return false;
    }
    $aStart = explode ('-', $dStart);
    $aEnd = explode ('-', $dEnd);
    if (count ($aStart) !== 3 || count ($aEnd) !== 3) {
        return false;
    }
    if (false === checkdate ($aStart[1], $aStart[2], $aStart[0]) || false === checkdate ($aEnd[1], $aEnd[2], $aEnd[0]) || $iEnd <= $iStart) {
        return false;
    }
    for ($i = $iStart; $i < $iEnd + 86400; $i = strtotime ('+1 day', $i) ) {
        $sDateToArr = strftime ('%Y-%m-%d', $i);
        $sYear = substr ($sDateToArr, 0, 4);
        $sMonth = substr ($sDateToArr, 5, 2);
        $aDates[$sYear][$sMonth][] = $sDateToArr;
    }
    if (isset ($aDates) && !empty ($aDates)) {
        return $aDates;
    } else {
        return false;
    }
}

$aDates = getDatesBetween ('2006-09-01', '2006-10-31');
echo '<pre>', print_r ($aDates), '</pre>';
?>

 '// renvoie un tableau() de type Date
 Private Function getDatesBetween(dStart As Date, dEnd As Date) As Date()
     Dim i As Integer
     Dim d As Date
     If dStart > dEnd Then Exit Function
     ReDim Dates(Int(dEnd - dStart)) As Date
     For d = dStart To dEnd
         Dates(i) = d
         i = i + 1
         Next
     getDatesBetween = Dates
 End Function
 
 
 '// UTILISATION:
     Dim i   As Integer
     Dim dt1 As Date
     Dim dt2 As Date
     Dim d() As Date
 
     dt1 = "01/01/2006"
     dt2 = "30/03/2006"
     d = getDatesBetween(dt1, dt2)
     
 '// CONTROLE dans une ListBox:
     If Not (Not d) Then
        List1.Clear
        For i = 0 To UBound(d)
            List1.AddItem d(i)
            Next i
        Else
        List1.Clear
        End If
 
 

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)