compter laps de temps entre dates

Version imprimable

03/12/2009, 19h46
de-law

compter laps de temps entre dates

Merci de lire ma discussion.

Voici mon dilemme

dans excel 2007

J`ai 467567 rangs qui ont du data pour des commis qui prennent de commandes de pièces de remplacement et l`expédition de ceux ci. Et j`ai besoin de calculer la date et l`heure a laquel la commande aurait été complétée

le data qui m`est disponible est le comme suit:

Dans la cellule J2 (la date et l`heure de prise de la commande sous le format)
909281151
(9 09 28 1152 le premier chiffre c`est l`année, le deuxième est le mois troisième est le jour et les quatre derniers l`heure de création 11 hrs 23 notez-bien qu`il manque les secondes ils ne sont pas disponibles)

Dans la cellule b2 (le temps passé sur cette commande sous le format)
J:H:M:S (JOURS:HEURES:MINUTES:SECONDES)
4d:1h:2:2s

voici ce que devrait être le résultat dans ce cas cette commande aurait été terminé
le 2009-10-06 a 12:54 (j`ai omis les secondes)

merci pour votre aide et aimerais bien remercier le héros qui pourra m`aider avec cela

Citation:

voici ce que devrait être le résultat dans ce cas cette commande aurait été terminé
le 2009-10-06 a 12:54

28/09/2009 + 4 jours c'est le 2/10/2009, non?

une première proposition approximative (ça dépend de la forme de tes données)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub test()
Dim DtDeb As String, Del As String
Dim Dtmin As Byte, Dtheur As Byte, Dtjr As Byte, Dtmoi As Byte, Dtan As Byte
Dim Dljr As Byte, Dlheur As Byte, Dlmin As Byte
Dim DateDebut As Date, DateFin As Date
Dim Sep
Dim DurMin As Long, i As Long
 
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    DtDeb = Range("J" & i).Value
    Dtmin = CByte(Mid(DtDeb, Len(DtDeb) - 1))
    Dtheur = CByte(Mid(DtDeb, Len(DtDeb) - 3, 2))
    Dtjr = CByte(Mid(DtDeb, Len(DtDeb) - 5, 2))
    Dtmoi = CByte(Mid(DtDeb, Len(DtDeb) - 7, 2))
    Dtan = CByte(Left(DtDeb, Len(DtDeb) - 8))
    DateDebut = DateSerial(Dtan, Dtmoi, Dtjr) + TimeSerial(Dtheur, Dtmin, 0)
 
    Del = Range("B" & i).Value
    Sep = Split(Del, ":")
    Dljr = Val(Sep(0))
    Dlheur = Val(Sep(1))
    Dlmin = Val(Sep(2))
    DurMin = Dlmin + 60 * Dlheur + 24 * 60 * Dljr
    DateFin = DateAdd("n", DurMin, DateDebut)
 
    Range("K" & i).Value = DateFin
Next i
End Sub

04/12/2009, 08h56
ucfoutu
Bonjour, merctog,

Que ferait ceci, si T était la valeur d'une cellule contenant ce format étrange de date :
Code:

1 2 3 4 5 T = Format(T, "0#/##/## ##:##") TP = Mid(T, 7, 2) Mid(T, 7, 2) = Left(T, 2) Mid(T, 1, 2) = TP datedebut = CDate(T)
(tu ne crois pas qu'il irait plus vite ?)
04/12/2009, 09h42
mercatog

Bonjour, ucfoutu

Citation:

tu ne crois pas qu'il irait plus vite ?

Je le crois (après avoir testé sur 2 ptits exemples)