Obtenir toutes les dates valides comprises entre 2 dates

Commenter

Contenu du snippet 

 '// 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

Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (malalam)