Bonjour à tous,

J'aurai besoin de votre aide concernant une boucle d'incrementation pour rajouter une valeur de 5 minutes en 5 minutes entre deux intervalles horaires , pour cela j'ai bidouillé ce code qui , soit fait planter access 2010 , soit ne donne qu'un seul résultat :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function PlageHoraire()
 
    Dim DebutPlageHoraire As Date
    Dim FinPlageHoraire As Date
    Dim CalculDepart As Date
    Dim CalculFin As Date
 
    DebutPlageHoraire = #8:00:00 AM#
    FinPlageHoraire = #6:00:00 PM#
 
    CalculDepart = DateAdd("n", 5, DebutPlageHoraire)
 
    While CalculFin < FinPlageHoraire
 
    CalculFin = DateAdd("n", 5, CalculDepart) + CalculFin
 
  Wend
 
  Debug.Print CalculFin
 
 
End Function
Merci d'avance pour vos suggestions