Cumul de minute en macro

ROGER2327

XLDnaute Barbatruc

• 27 Décembre 2008

• #2

Re : Cumul de minute en macro

Bonjour gravel,

Je ne comprends pas votre calcul :
si t0 = 1 h 43 min et t1 = 22 h 00 min, t1 - t0 = 1217 min ;
si t0 = 1 min 43 s et t1 = 22 min 00 s, t1 - t0 = 20 min 28 s ;
si t0 = 1 min 43 s et t1 = 22 h 00 min, t1 - t0 = 1318 min 28 s ;
si t0 = 1 h 43 min et t1 = 22 min 00 s, t1 - t0 = -81 min 00 s.​

Comment obtenez-vous 223 min ou 20 h 16 min ou 20 min 16 s ?​

À bientôt,
ROGER2327

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Décembre 2008

• #3

Re : Cumul de minute en macro

Bonjour,

Pour obtenir le temps en minutes:

x = Int(Time * 60 * 24)

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Décembre 2008

• #4

Re : Cumul de minute en macro

Bonjour à tous

Entièrement d'accord sur le principe, time * 1440 donne un temps en minutes. Mais je ne vois toujours pas comment gravel obtiendra le résultat souhaité à partir des renseignements donnés.​

À suivre...

ROGER2327

 

Vote positif 0 Vote négatif

G

gravel

Guest

• 27 Décembre 2008

• #5

Re : Cumul de minute en macro

Je n'ai pas le temps d'essayer ta solution avant demain JB.
pour Roger, le problème c'est que time me renvoi un nombre <1 correspondant à une journée.
passé minuit la différence entre mon t0 de 1h43 (couché tard forcément) et mon t1 de 22:00 (22h) devient la différence entre t1 et t0 (t1-t0) et non plus t0 et t1 (t0-t1).
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2008

• #6

Re : Cumul de minute en macro

Bonjour Gravel, Roger, jb

regarde le code ci-dessous, si cela peut t'aider, mais comme Roger je m'interroge sur le résultat que tu obtiens dans l'exemple donné...

Code:

MsgBox Abs((CDate(TextBox1.Value) - CDate(TextBox2.Value)) * 1440)

bonne journée
@+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Décembre 2008

• #7

Re : Cumul de minute en macro

Bonjour à tous,

Si j'ai bien compris, mon cher gravel, il s'agit de calculer la différence en minutes entre deux dates. Par exemple, entre 27/12/2008 01:43 et 26/12/2008 22:00. Cela n'est pas possible avec la fonction time qui est périodique de période 1 (jour). Votre solution se trouve dans la fonction Now
​

Essayez le code :

Code:

Option Explicit

Sub test()
Dim x, y
    x = Now() [COLOR="DarkGreen"]' date courante[/COLOR]
    y = x - 223 / 1440 [COLOR="DarkGreen"]' date courante retardée de 223 minutes[/COLOR]
    MsgBox x & " - " & y & " = " & Round((x - y) * 1440) & " min"
End Sub

à n'importe quel moment de la journée pour vous en convaincre : il renverra systématiquement la réponse 223 min.​

Nous avons ici un exemple montrant l'intérêt qu'il y a à prendre le temps de demander exactement ce qu'on veut, plutôt qu'à se contenter d'à peu près. Tous le monde y gagnerait : ceux-là qui cherchent à répondre perdraient moins de temps, ceux-ci qui demandent attendraient les réponses moins longtemps... ...et tout irait pour le mieux dans le meilleur des mondes.​

Bonne journée,
ROGER2327

 

Dernière édition: 27 Décembre 2008

Vote positif 0 Vote négatif

G

gravel

Guest

• 28 Décembre 2008

• #8

Re : Cumul de minute en macro

Merci Roger la fonction now() répond à ma question.
Désolé de ne pas avoir été clair du premier coup.
encore merci pour votre aide

 

Vote positif 0 Vote négatif