Bonjour,

J'ai deux champs (datprevue et datreelle) de type jj/mm/aaaa HH:MM:SS ;
j'ai par exemple datprevue=02/04/2012 08:07:42 et datreelle=01/04/2012 10:43:00

Mon but est créer une fonction Margedate telle que Margedate soit la différennce datprevue-datrelle. si le jour est le même c-à-d si on a par ex

datprevue=02/04/2012 08:07:42 et datreelle=02/04/2012 05:30:33

alors Margedate doit être égale à la différence d'heure (08:07:42 - 05:30:33)




J'ai éssayé le code suivant qui malheureusement ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function margedate(datprevue As Date, datreelle As Date) As Variant
Dim hmargep, hmarger As Date
Dim dmargep, dmarger As Date
hmargep = CDte(Format(datprevue, "HH:MM:SS"))
hmarger = CDte(Format(datreelle, "HH:MM:SS"))
dmargep = DateSerial(Year(datprevue), Month(datprevue), Day(datprevue))
dmarger = DateSerial(Year(datreelle), Month(ddatreelle), Day(datreelle))
If dmargep = dmarger Then
   margedate = (hmargep - hmarger)
Else
   margedate = (dmargep - dmarger)
   End If
 
End Function

Je vous remerci par avance de votre aide.


Kedmard.