Discussion :

[clickandgo]

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

[zoom61]

Salut,

Cela serait plutôt :

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

@+.

[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 ...

[zoom61]

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

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
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 !

@+.

[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

[zoom61]

Cela devrait aller :

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

@+.

[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 !