Discussion :

[fyejumpy]

Bonjour,

Voilà j'ai deux heures que je voudrais soustraire, l'une est l'heure actuelle en Time et l'autre est une heure que j'ai mis dans une variable Date heureHoro.

Je voudrais savoir si il y a eu 2 heures qui se sont écoulées.
Sauf que quand je fais heurehoro-Time, j'obtiens un résultat en -0.25555555. Alors que les deux dates sont de format hh:mm:ss.

Voici le code :

Code :

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

1
2
3
4
5
6
7
        dateHoro = CDate(Mid(splitAttention(0), 2, 11))
        heureHoro = CDate(Mid(splitAttention(0), 13, 20))
 
 
        If dateHoro = Date And heureHoro - Time > CDate("02:00:00") Then
            MsgBox ("test")
        End If

En fait j'aimerai bien savoir si il c'est écoulé par exemple 20 minutes ou 2 heures.


merci de vouloir m'aider,

Cordialement,

Fyejumpy

[parmi]

Bonjour,

Une exemple

Code :

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

1
2
3
4
5
6
    Dim Heure1 As Date, Heure2 As Date
 
    Heure1 = #1:20:30 AM#
    Heure2 = #3:00:00 AM#
 
    MsgBox DateDiff("n", Heure1, Heure2) & " minutes"

[kiki29]

Salut, à lire : Utiliser les fonctions Date et Heure sous Excel 2007 ainsi que Comprendre et gérer les dates sous Excel et en VBA

[Theze]

Bonjour,

Pour Excel, 1 heure est égale à 1/24 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
    Dim Heure1 As Single
    Dim Heure2 As Single
 
    'Pour Excel, 1 heure égale 1 / 24
 
    Heure1 = 1 / 24 * 10 '10 h du matin
    Heure2 = 1 / 24 * 11.5 '11:30 du matin
 
    MsgBox Format(Heure2 - Heure1, "hh:mm:ss")
 
End Sub

Avec seulement ton bout de code il est difficile de savoir de quelle chaîne tu extrait tes heures.

Hervé.

[fyejumpy]

merci pour votre aide !
J'ai enfin réussi grâce à vous


Je passe en résolu !

Cordialement,

Fyejumpy