Différence entre 2 datesRésolu

Question

Bonjour !

J'aimerais faire la différence entre 2 dates du même titre que dans l'exemple et que le résultat serait en heures et minutes.   J'ai essayé d'utiliser DateDiff, mais il semble que je puisse avoir mon résultat en heure ou en minute et non les deux.  Et la fonction arrondie le résultat.

Exemple : 28-02-2007 11:00:00 -  28-02-2007 10:03:05   

Le résultat serait  :  0:56:55    

Es-ce que quelqu'un serait en mesure de m'aider ?

Merci

Alexandre

cs_JMO · Accepted Answer

Bonjour à tous

Un petit peu plus simple que notre ami Mortalino.

date1= CDate("28-02-2007 10:04:00")
date2= CDate("28-02-2007 10:03:05")
Temps = DateDiff("n",date2, date1)   ' n pour seconde


hh = Temps / 3600 
mn = (hh - Int(hh)) * 60 
sc = (mn - Int(mn)) * 60 
hh = Int(hh)If Len(hh) 1 Then hh "0" & hh
mn = Int(mn)If Len(mn) 1 Then mn "0" & mn
sc = Int(sc)If Len(sc) 1 Then sc "0" & sc
duree = hh & ":" & mn & ":" & sc 




MsgBox duree

jean-marc

mortalino · Answer

Salut, j'ai une fonction qui gère la différence de dates avec le résultat voulu ; seul variante : j'ai pas les secondes, c'est un arrondi par la minute : Public Function EcartDate(ByVal DateDebut As Date, ByVal HeureDebut As Date, ByVal DateFin As Date, ByVal HeureFin As Date) As String Dim dStart As Date, dEnd As Date, dEcart As Long, lTemp As Long dStart = DateDebut & Space(1) & HeureDebut dEnd = DateFin & Space(1) & HeureFin dEcart = DateDiff("n", CDate(dStart), CDate(dEnd)) Select Case dEcart Case 1 To 59 EcartDate = dEcart & " minute(s)" Case 60 EcartDate = "1 heure" Case 61 To 1439 EcartDate = dEcart \ 24 & " heure(s) " & dEcart Mod 24 & " minute(s)" Case 1440 EcartDate = "1 jour" Case Is > 1441 lTemp = dEcart \ (24 * 60) EcartDate = lTemp & " jour(s) " & ((dEcart - (lTemp * (24 * 60))) \ 60) & " heure(s) " & _ ((dEcart - (lTemp * (24 * 60))) Mod 60 * (((dEcart - (lTemp * (24 * 60))) \ 60))) & " minute(s)" End Select End Function ' ************************************************************** Sub Exemple_Utilisation() 'tes dates : 28-02-2007 11:00:00 - 28-02-2007 10:03:05 MsgBox EcartDate(#2/28/2007#, "10:03", #2/28/2007#, "11:00") ' Résultat : 57 minute(s) ' AUTRE EXEMPLES MsgBox EcartDate(#11/10/2005#, "19:58", #11/15/2006#, "21:00") MsgBox EcartDate(39036, 0.625, 39037, 0.625) End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Salut Jean-Marc,

Oui, c'est plus complexe pour ma fonction à cause des jours, par contre je viens de tester ta fonction, et sur ton exemple, au lieu d'avoir 00:00:55, j'ai 00:00:01

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_JMO · Answer

Re,

désolé, erreur dans mon "copier", mettre "s" à la place de "n"
s=seconde
n=minute

jean-marc

jmfmarques · Answer

Et si on allait à dy jmfien ?
(j'ai choisi le 01/01 de l'année 2000 mais j'aurais pu prendre n'importe quelle autre année) :

Allons-y , avec le compte des jours en prime !

Private Sub Command1_Click()
  date1 = "28-02-2007 11:00:00"
  date2 = "28-02-2007 10:03:05"
  d = DateAdd("s", DateDiff("s", date2, date1), "01-01-2000")
  MsgBox Format(date1, "d") - Format(date2, "d") & " jours " & Format(d, "hh:mm:ss")
End Sub

mortalino · Answer

Bien vu  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Salut JmfMarques,

pas mal aussi ta fonction, dommage qu'elle ne gère (pas encore ?) les jours au-delà d'un an  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Salut, Mortalino,

Je peux, je peux !
Je peux même compter les siècles si tu veux (tu veux ?)

mortalino · Answer

Je n-en doûte pas 
Avec plaisir, et tu pourrais même la déposer ici :
LA

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Allez,

Je vais m'arrêter aux années car le reste est évident (il suffit d'utiliser une division par 100 pour les siècles et prendre le reste pour les années...)

Private Sub Command1_Click()
  date1 = "28-02-2009 11:00:00"
  date2 = "27-02-2007 10:03:05"
  d = DateAdd("s", DateDiff("s", date2, date1), "01-01-2000")
  MsgBox Format(date1, "yyyy") - Format(date2, "yyyy") & " ans " & Format(date1, "d") _
  - Format(date2, "d") & " jours " & Format(d, "hh:mm:ss")
End Sub

jmfmarques · Answer

Ouille !
Je suis le ropi des endormis, aujourd'hui !

Attends !
Il faut que je corrige et je reviens !

cs_JMO · Answer

Re,

si si Mortalino, pour gérer jj/mm/aaaa, il faut prendre l'exemple de Jacques, qui est presque en vbs
je vais tester son exemple...apparemment, il suffit d'utiliser FormatDateTime et jouer
avec des replace puisque format n'existe pas en vbs

jean-marc

mortalino · Answer

C'est parfait  ;)
Comme quoi il y a toujours plus court. Ta fonction étant très bien est plus courte que la mienne, n'hésite pas à la déposer sur Codyx

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Et voilà mon corrrigé :

Private Sub Command1_Click()
  date1 = "31-03-2009 11:00:00"
  date2 = "27-02-2007 10:03:05"
  d = DateAdd("s", DateDiff("s", date2, date1), "01-01-2000")
  MsgBox Format(d, "yyyy") - 2000 & " ans " & Format(d, "m") - 1 & " mois " & _
   Format(d, "d") - 1 & " jours " & Format(d, "hh:mm:ss")
End Sub

jmfmarques · Answer

=>> Mortalino :

A toi l'honneur de déposer (mais prends la toute dernière, hein... car l'avant dernière a un petit bug, que j'ai corrigé)

mortalino · Answer

Non non, c-est la tienne, pis la mienne y est déjà.
L-honneur te revient  
Et je trouve ça interressant d-en déposer plusieurs, c-est ainsi que l-on voit que certaines choses sont plus simples que l-on ne peut le croire  ;)
(Ps : même login qu-ici)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Non M'sieur Mortalino...
J'ai assez travaillé et c'est l'heure du pastis ...
A toi la corvée  (si tu ne le fais pas, je ne le ferai pas non plus, alors.... )

mortalino · Answer

Alors je poste mais t'es nommé  ;)
Bon pastaga  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_JMO · Answer

Re,

Une petite question pour Jacques,

Quelle date te retourne le msgbox ???

avec

Private Sub Command1_Click()
  date1 = "31-03-2009 11:00:00"
  date2 = "27-02-2007 23:03:05"
  d = DateAdd("s", DateDiff("s", date2, date1), "01-01-2000")
  MsgBox Format(d, "yyyy") - 2000 & " ans " & Format(d, "m") - 1 & " mois " & _
   Format(d, "d") - 1 & " jours " & Format(d, "hh:mm:ss")
End Sub

jean-marc

jmfmarques · Answer

Bonjour Jean-Marc :

ce n'est pas une date, mais une durée.

2 ans 1 mois 0 jours 11:56:55

2 ans c'est bon
1 mois c'est bon
0 jour, c'est bon, car il ne s'est pas écoulé 24 heures entre le 23h.03.05 et 11h.00.00,
11h.56.55 n'est en effet pas bon car 11.56.55 + 23:03:05 35:59:60 36:00:00 = 24 + 12 et non 24 + 11 comme il se devrait.

Tu as en effet mis le doigt sur une erreur importante et, du coup, sur 2 autres erreurs :

Dès lors que l'on passe à la durée, les dates ne signifient plus rien et il est vain de calculer les mois et les années car, par exemple, ol y a 366 jours entre le 01/01/2000 et le 31/12/2000 alors qu'il n'y en a que 365 entre le 01/01/1999 et le 31/12/1999 (bornes incluses). Maos ce n'est pas le seul embêtement ....

je corrige donc et reviens.

Merci

jmfmarques · Answer

Bon (j'ai le tournis)

Veux-tu tester ceci, jean-Marc ?

Private Sub Command1_Click()
  Date1 = "03/31/2009 11:00:00"
  date2 = "02/27/2007 11:03:05"
  diff = DateDiff("s", date2, Date1)
  nouvdate = DateAdd("s", diff, "01/01/2000")
  nouvdate = DateAdd("d", -1, nouvdate)
  tempsj = DateDiff("d", "01/01/2000", nouvdate)
  If TimeValue(date2) > TimeValue(Date1) Then tempsj = tempsj - 1
  tempsh = Format(nouvdate, "hh:mm:ss")
  MsgBox tempsj & " jours " & tempsh
End Sub

Je ne compte no les années ni les mois car celà ne veut finalement rien dire en durée (évidemment) et dépend totalement de la date de départ. On ne peut mathématiquement compter une durée qu'en jours, heures, minutes et secondes (le nombre d'années et de mois écoulés ne veulent intrinséquement rien dire en durée pure)

cs_JMO · Answer

Re,

Date1 = "03/31/2009 11:00:00"
date2 = "02/27/2007 11:03:05"
  diff = DateDiff("s", date2, Date1)
  nouvdate = DateAdd("s", diff, "01/01/2000")
  nouvdate = DateAdd("d", -1, nouvdate)
  tempsj   = DateDiff("d", "01/01/2000", nouvdate)
  
  If TimeValue(date2) > TimeValue(Date1) Then tempsj = tempsj - 1
  
  MsgBox nouvdate &vbCrLf& tempsj
  
 'nouvdate affiche 31/01/2002 23:56:55
 'tempj    affiche 760 (jours) 
 
 'tempsh = Format(nouvdate, "hh:mm:ss")  ' format n'est pas accepté en vbs

pour ma part, j'ai simplement fait:
Date1 = "03/31/2009 11:00:00"
date2 = "02/27/2007 11:03:05"



'années
MsgBox CInt((CDate(Replace(Left(date1,10),"-","/")) - CDate(Replace(Left(date2,10),"-","/"))) / 365) & " ans",,"test1 retourne 2 ans"
Msgbox  (DateDiff("yyyy",CDate(Replace(date2,"-","/")), CDate(Replace(date1,"-","/")))) & " ans",,"test2 retourne 2 ans" 




'jours
MsgBox CLng(CDate(Replace(Left(date1,10),"-","/")) - CDate(Replace(Left(date2,10),"-","/"))) & " jours",,"test3 retourne 763 jours"
MsgBox CInt(CDate(Replace(date1,"-","/")) - CDate(Replace(date2,"-","/"))),,"test4 retourne 763 jours"
MsgBox DateDiff("d",date2, date1),,"test5 retourne 763"  




'hh:mn:sc
MsgBox FormatDateTime(CDate(Replace(date1,"-","/")) - CDate(Replace(date2,"-","/")),3),,"test5 retourne 23:56:55"

  
 Bon, je vais faire une pause sur ce faux problème.
Moi aussi, j'ai le tournis (apéro + surveillance exploit fin de mois sur "mon" gcos7) ....

jean-marc

jmfmarques · Answer

Ouais !
Cette affaire m'a empêché de dormir !
J'y ai pensé et repensé ...
Il y a en fait 2 sortes de durées :
1) la durée temporelle (elle ne peut être calculée qu'en temps "solaire" écoulé, donc et uniquement en jours, heures, minutes, et secondes)
2) la durée "calendaire" (celle que l'on utilise par exemple, pour calculer un âge et dont la valeur n'est pas toujours égale à la durée "solaire" écoulée ...)

L'affaire se complique du fait que, à moins de partir des secondes et, par des opérations arithmétiques pures, d'en déduire la durée (qui ne peut alors s'exprimer qu'en temps "solaire", on se heurte systématiquement à des obstacles divers, résultant notamment (mais pas seulement) du fait que Datediff interrogé sur le nombres de secondes écoulées, par exemple, inclut bien évidemment de même nombre dans le nompbre de jours écoulés qu'on lui demanderait de calculer ! Il en va de même en ce qui concerne les heures, les minutes et les secondes.

J'ai déjà résolu ce 1er aspect cette nuit pour calculer te temps "solaire" écoulé en utilisant datediff (donc sans le calcul arithmétique sur des secondes). Je vous en exposerai le raisonnement in fine.

A +

Il me reste (et je m'y attacherai aujourd'hui) à tenter d'appliquer la même méthode pour, avec un simple passage de paramètres, parvenir à calculer également, avec le même outil, la durée "calendaire".

Tout celà est fort intéressant comme gymnastique de l'esprit, vous verrez.

Différence entre 2 dates

23 réponses

Votre réponse

Discussions similaires