Macro comptabilisation par jours

Version imprimable

04/04/2011, 16h18
dybmans

Macro comptabilisation par jours

Bonjour,

J'ai une macro Excel qui effectue des calculs par rapport à une durée.

J'ai un problème en ce moment à savoir un évènement commencé :

12/03/2011 19:46:00 et qui se termine 13/03/2011 05:48:00.

Je voudrais faire une macro qui me calcul la durée de du 12/03/2011 19:46:00 jusqu'à minuit et du 13/03/2011 de 00:00 à 5:48:00.

Mais comment faire le test de date ? comment differentier les évenement qui reste dans la journée du 12/03/2011 et ceux qui se situe sur 2 jours ?

Quand je fais le test il me prend aussi l'heure donc le test ne fonctionne pas.

Merci par avance pour votre aide.

Bonsoir,

C'est la différence d'heures qu'il y a entre deux moments situés sur deux jours que tu souhaites récupérer ? Si c'est le cas, regarde cette fonction que je viens de pondre, attention, je ne suis pas trop à l'aise avec les dates :0(( donc, il se peut que quelqu'un te donne une fonction plus efficace mais en attendant, teste :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub test()
 
    MsgBox HeuresEntreDeuxDates("12/03/2011 19:46:00", "13/03/2011 05:48:00")
 
End Sub
 
Function HeuresEntreDeuxDates(Date1erJour As Date, _
                              Date2emeJour As Date)
 
    Dim Heure As Integer
    Dim Minutes As Integer
    Dim Seconde As Integer
    Dim H As Date
 
    'récupère les heures sur la 1 ère journée
    H = Format(Date1erJour, "hh:mm:ss")
    H = Format(24 - H, "hh:mm:ss")
 
    'additionne les heures, minutes et secondes
    Heure = Hour(H) + Hour(Date2emeJour)
    Minutes = Minute(H) + Minute(Date2emeJour)
    Seconde = Second(H) + Second(Date2emeJour)
 
    'si les secondes supérieures à 1 minute
    'incrémente de 1 minute et déduit des secondes
    If Seconde > 59 Then
        Minutes = Minutes + 1
        Seconde = Seconde - 60
    End If
 
    'idem pour les minutes
    If Minutes > 59 Then
        Heure = Heure + 1
        Minutes = Minutes - 60
    End If
 
    'retourne le résultat
    HeuresEntreDeuxDates = Format(Heure, "00:") & Format(Minutes, "00:") & Format(Seconde, "00")
 
End Function

PS : si tu veux aussi le nombre de jours, il faut faire de même que ce que j'ai fais pour les minutes et secondes.

Hervé.

Bonsoir
Dans le même ordre d'idée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Dim D1 As Date, D2 As Date
 
D1 = "12/03/2011 19:46:00"
D2 = "14/03/2011 05:48:00"
MsgBox DiffDates(D1, D2)
End Sub
 
Function DiffDates(Dd As Date, Df As Date) As String
Dim Nbm As Long
Dim Nbj As Byte
 
Nbm = DateDiff("n", Dd, Df)
Nbj = Int(Nbm / (24 * 60))
DiffDates = Nbj & "j " & Format(TimeSerial(0, DateDiff("n", DateAdd("d", Nbj, Dd), Df), 0), "h\h n\mi\n")
End Function

05/04/2011, 09h15
dybmans

Bonjour,
et merci pour votre aide.

En ce moment je fais des calculs sur des évènements en fonction de la durée à partir de là je fais des graphiques.

Seulement les graphiques sont par jours et ce que j'obtiens quand l'évènement dure sur 2 jours et un pique pour le prémier jour et rien pour le seconde.

Ce que j'essai de faire c'est si l'évènement à durée 5h avec 2h le 12/03/2011 et 3h le 13/03/2011 d'avoir c'est différence.

Car sinon je me retrouve avec 5h pour le 12/03/2011 :cry:

Je pense que tu m'as donner la solution dans ton premier message et je t'en remercie :ccool:

Je te joins ce que j'ai fais si tu veux voir à quoi ressemble mon programme.

Pièce jointe 75528