Excel date/heure différence

Je voudrais travailler à l'heure actuelle, depuis une date et une heure spécifiées.

Si les données spécifiées : 19/01/2013 16:44:00
et maintenant, le moment est : 19/01/2013 16:45:00

la différence est 0 ans, 0 mois 0 jours 0 heures 1 minute 0 seconde

Cela peut être fait facilement, juste en prenant le temps actuel et moins de la fois précédente et le format, mais c'est dur à croquer données de façon à ce que je voudrais faire est de briser chaque date/heure segment dans sa propre cellule

Disons que la cellule A1 a la fois précédente et la cellule A2 a l'heure actuelle

Les cellules a5 creux f5 contiendrait 0 ans, 0 mois 0 jours 0 heures 1 minute 0 seconde

Sur une deuxième remarque sur cette question, est il possible de forcer la =NOW() de mettre à jour toutes les x secondes via VBA sans interaction?

Vous devriez diviser cela en deux questions pour éviter la collision des réponses des différentes parties

OriginalL'auteur Jordan Trainor | 2013-01-30

  1. 3

    Vous ne pouvez pas utiliser YEAR fonction pour obtenir l'année de différence, parce que cela va donner 1 an entre le 31 décembre 2012 et 1er janvier 2013, quand il y a un seul jour.....

    ....de même, vous pouvez avoir des problèmes avec le MOIS et le JOUR (par exemple, MOIS toujours renvoie un nombre entre 1 et 12 alors que, dans ce contexte, de ce que vous attendez des nombres entre 0 et 11)

    Essayer DATEDIF pour les 3 premiers puis HOUR, MINUTE, SECOND comme Justin suggère

    En supposant date/heure de début dans la cellule A2 et date/heure de fin dans B2 essayez ces formules, respectivement, pour les Années, Mois, Jours, Heures, Minutes et Secondes

    =DATEDIF(A2,B2-(MOD(A2,1)>MOD(B2,1)),"y")

    =DATEDIF(A2,B2-(MOD(A2,1)>MOD(B2,1)),"ym")

    =DATEDIF(A2,B2-(MOD(A2,1)>MOD(B2,1)),"md")

    =HOUR(B2-A2)

    =MINUTE(B2-A2)

    =SECOND(B2-A2)

    format de toutes les cellules général

    Vous pouvez obtenir des écarts en raison de variable mois/année longueurs......

    pour =HEURE(B2-A2) =MINUTE(B2-A2) =DEUXIÈME(B2-A2) j'obtiens #NUM!
    Si vous obtenez #NUM! erreur, cela signifie que les dates sont dans le mauvais sens, j'ai été en supposant que B2 a été plus tard A2, si ce n'est passer à =HOUR(A2-B2) etc

    OriginalL'auteur barry houdini

  2. 1

    Utilisation A5 = Year(A1)-Year(A2) etc.

    À l'aide de

    Year(...)
    Month(...)
    Day(...)
    Hour(...)
    Minute(...)
    Second(...)

    Pour plus de détails sur la création d'une auto-mise à jour de la feuille de base sur une minuterie, regardez ces deux postes et régler la minuterie pour exécuter la Worksheet.Calculate méthode.

    j'ai essayé cela avec a1=30/01/2013 16:44:00 et a2 = 30/01/2013 18:34:35 et je reçois (jours 0)(2 heures)(-10 Minutes)(35 secondes) comment pourrais-je résoudre ce problème?

    OriginalL'auteur JustinJDavies

  3. 0
    Private Sub CommandButton1_Click()
    DoDateA
End Sub

Sub DoDateA()
    Dim D1 As Date, D2 As Date, DC As Date, DS As Date
    Dim CA: CA = Array("", "yyyy", "m", "d", "h", "n", "s", "s")
    Dim Va%(7), Da(7) As Date, Ci%
    D1 = Now + Rnd() * 420  ' vary the  * factors for range of dates
    D2 = Now + Rnd() * 156
    If D1 > D2 Then
        [b4] = "Larger"
    Else
        [b4] = " smaller"
        DS = D1
        D1 = D2
        D2 = DS
    End If
    [d4] = D1
    [e4] = D2
    DC = D2
    For Ci = 1 To 6
        Va(Ci) = DateDiff(CA(Ci), DC, D1)
        DC = DateAdd(CA(Ci), Va(Ci), DC)
        Va(Ci + 1) = DateDiff(CA(Ci + 1), DC, D1)
        If Va(Ci + 1) < 0 Then  ' added too much
            Va(Ci) = Va(Ci) - 1
            DC = DateAdd(CA(Ci), -1, DC)
            Cells(9, Ci + 3) = Va(Ci + 1)
            Cells(8, Ci + 3) = Format(DC, "yyyy:mm:dd hh:mm:ss")
        End If
        Da(Ci) = DC
        Cells(5, Ci + 3) = CA(Ci)
        Cells(6, Ci + 3) = Va(Ci)
        Cells(7, Ci + 3) = Format(Da(Ci), "yyyy:mm:dd hh:mm:ss")
        Cells(10, Ci + 3) = DateDiff(CA(Ci), D2, D1)
    Next Ci
End Sub

    OriginalL'auteur Harry S