Discussion :

[clickandgo]

Bonjour à tous,

J'essaye de calculer la différence en minutes existante entre 2 dates et 2 heures réparties sur 4 champs avec ce code, mais il apparait une "incompatibilité de type" en pointant la ligne "nbMinutes=Datediff ..."

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 Sub DureeMinutes()
 
Dim H1 As Date
Dim H2 As Date
Dim D1 As Date
Dim D2 As Date
Dim NbMinutes As Long
 
H1 = CDate(Me.RVHeure)
H2 = CDate(Me.HeureFinRDV)
D1 = CDate(Me.RVDate)
D2 = CDate(Me.DateFinRDV)
 
If Not IsNull(Me.RVDate) And Not IsNull(Me.RVHeure) And Not IsNull(Me.DateFinRDV) And Not IsNull(Me.HeureFinRDV) Then
 
NbMinutes = DateDiff("n", Format(D1, "d/m/yyyy") & " " & H1, Format(D2, "d/m/yyyy") & " " & H2)
Me.RVDurée = NbMinutes
 
Else
Exit Sub
End If
Debug.Print NbMinutes
 
End Sub

Apparement les champs "Date" continuent à prendre en compte les heures malgré le format et le champ H2 qui est pourtant formatté en "heure abrégé" montre une date + heure entières dans la fenêtre de code... Pourquoi ?

Merci d'avance

[clickandgo]

J'ai trouvé : il fallait utiliser datevalue / timevalue !

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 Sub DureeMinutes()
 
Dim H1 As Date
Dim H2 As Date
Dim D1 As Date
Dim D2 As Date
Dim NbMinutes As Long
 
H1 = TimeValue(Me.RVHeure)
H2 = TimeValue(Me.HeureFinRDV)
D1 = DateValue(Me.RVDate)
D2 = DateValue(Me.DateFinRDV)
 
If Not IsNull(Me.RVDate) And Not IsNull(Me.RVHeure) And Not IsNull(Me.DateFinRDV) And Not IsNull(Me.HeureFinRDV) Then
 
NbMinutes = DateDiff("n", D1 & " " & H1, D2 & " " & H2)
Me.RVDurée = NbMinutes
 
Else
Exit Sub
End If
Debug.Print NbMinutes
 
End Sub