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