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 :
Merci d'avance pour vos suggestions
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![]()
Partager