Discussion :

[clickandgo]

Bonjour à tous,

Voici le code me permettant de calculer en minutes la différence de date entre 2 champs date et deux champs horaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function DureeMinutes()
 
Dim NbMinutes As Long
 
NbMinutes = Nz(DateDiff("n", Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure, Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV), 0)
 
Me.RVDurée = NbMinutes
MsgBox NbMinutes
End Function

Lorqu'un des champs est vide, ce qui est probable la fonction s'arrête avec mention à une incompatibilité de type...

Les champs sont correctement formatés et l'erreur n'apparait que lorsque l'un deux est nul (ce qui est volontairement autorisé).

J'ai essayé de placer des Nz et de passer en Variant, String et Integer la variable, rien n'y fait...

Que se passe t'il d'après vous ?

(la fonction marche parfaitement si il n'y a pas de valeur nulle dans aucun des champs )...

Merci d'avance

[Christophe]

Fais plutot le calcul uniquement si tes champs date ne sont pas vide 1 truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if nz(date1) & nz(date2) then
nbminutes=datediff....
end if

[clickandgo]

merci pour ta réponse, mais ça ne marche toujours pas, pourtant tous les champs sont corrects, avec le bon format et renvoient les bonnes données dans la fenêtre de code... J'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function DureeMinutes()
 
Dim NbMinutes As Long
 
If Nz(Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure) And Nz(Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV) Then
 
NbMinutes = DateDiff("n", Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure, Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV)
 
Me.RVDurée = NbMinutes
End If
 
Debug.Print NbMinutes
 
End Function

[Robert1957]

Bonjour clickandgo,
Je crois que la meilleure manière de faire est de gérer les nulls avant l'appel de ta fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not IsNull(me.RVDate) And Not IsNull(Me.DateFinRDV) Then
DureeMinutes
End if

Si les champs à tester sont RVDate et DateFinRDV.

Bonne journée

[clickandgo]

Bon, j'ai trouvé une partie du problème, il s'agissait de la valeur par défaut des champs heures qui était mis à "00:00:00", curieusement cela produisait une erreur, je ne sais pas comment de ce fait entrer une valeur par défaut pour 0h00m00s !