Boucle incrémentation sur intervalle de dates

Version imprimable

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:

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 :)

Salut,

Cela serait plutôt :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)
    CalculFin = DebutPlageHoraire
 
    While CalculFin < FinPlageHoraire
 
        CalculFin = DateAdd("n", 5, CalculFin)
 
    Wend
 
  Debug.Print CalculFin
 
 
End Function

@+.

10/06/2013, 13h39
clickandgo

Merci pour ta réponse, malheureusement la boucle ne s'effectue pas, une seule itération s'opère ...

Je ne sais pas si DateAdd est vraiment indiqué pour additionner les heures dans ce cas ...

C'est bizarre cela fonctionne correctement, peux-tu mettre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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)
    CalculFin = DebutPlageHoraire
 
    While CalculFin < FinPlageHoraire
 
        CalculFin = DateAdd("n", 5, CalculFin)
        msgbox format(CalculFin, "HH:MM")
 
    Wend
 
  Debug.Print CalculFin
 
 
End Function

Et voir si cela ne t'affiche pas tous les heures que tu veux !

@+.

10/06/2013, 14h37
clickandgo

Alors maintenant ça marche, j'ai remplacé msgbox par un debug.print, mais il manque les valeurs de départ et de fin c.à.d qu'actuellement :

La liste commence par debut + 1 (qui est correct mais devrait inclure l'heure de debut) et fin +1 (qui est incorrect et devrait s'arrêter à l'heure de fin)

La finalité étant de créer une table de plages horaires les tops doivent être inclus...

Je continue à creuser mais je ne sais pas comment représenter cet intervalle avant la boucle et qui puisse alimenter la liste...

Merci pour ton aide

Cela devrait aller :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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)
    CalculFin = DateAdd("n", -5, DebutPlageHoraire)
 
    While CalculFin < DateAdd("n", -1, FinPlageHoraire)
 
        CalculFin = DateAdd("n", 5, CalculFin)
        MsgBox Format(CalculFin, "HH:MM")
 
    Wend
 
 
 
 
End Function

@+.

10/06/2013, 18h27
clickandgo

Absolument merveilleux !

Je vais essayer de comprendre cette logique :)

En tous les cas bravo pour ta réactivité et pour ta solution, je t'en remercie.

Bonne journée !