Discussion :

[kedmard]

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.

[nico84]

Bonjour

Si les 2 champs sont de type "date" ce sont en réalité des entiers longs dont la partie entière est le jour (nombre de jours depuis l'origine access) et la partie décimale une fraction de jour (midi = 0.5)

Il est donc possible d'en faire la différence directement puis de mettre cette différence au format souhaité, par exemple :

Code :

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

format(dateprevue - datereelle,"ddd - HH:MM")

[kedmard]

Salut nico84 Merci pour ta réponse,
voici un exemple de ce que j'ai en appliquant ton code:

pour datprevue=02/04/2012 10:06:17 et datreelle=31/03/2012 19:43:00

margedate=

Code :

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

dim. - 14:23

.

Je ne vois pas comment interpreter ce résultat, je ne peux dire le nombre de jours écoulés entre les 2 dates ni dire à quoi correspondent les 14:23.

L'idéeal serait d'avoir par exemple:

4-10:15 (4 jours, 10heures et 15minutes d'écoulés entre datprevue et datreelle).

[nico84]

14:23 c'est juste par contre le format ddd n'a pas été compris

Ainsi cela fera comme ton exemple :

Code :

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

int(dateprevue - datereelle) & "-" & format(dateprevue - datereelle,"HH:MM")

[kedmard]

Grand merci nico84 ça marchhhhhe

Bonne journée .

A+


kedmard