Calcul de temps durant une journée

Question

Bonjours à tous !
Existe -t-il un petit prog en vb qui fait la différence entre 2 heures données ?
Je travaille à partir de Excel.
Le but est de comptabilisé mon temps fait dans la journée avec des intervalles variés car je travaille à la maison et  je dois calculer mon temps. 
Merci de votre collaboration.
jf

jmfmarques · Answer

Bonjour;

voilà 2 petits trucs jmfiens, et il vont au delà d'une seule journée, s'il le faut :

rivate Sub Command2_Click()
  datedebut = "01/01/2001 10:22:43"
  datefin = "02/01/2001 10:23:41"
  nbsecondes = DateDiff("s", datedebut, datefin)
  nbheures = nbsecondes \ 3600
  nbminutes = (nbsecondes Mod 3600) \ 60
  nbsecondes = (nbsecondes Mod 3600) Mod 60
  MsgBox nbheures & " heures " & nbminutes & " minutes" & nbsecondes & " secondes "
End Sub


Private Sub Command3_Click()
  datedebut = "01/01/2001 10:22:43"
  datefin = "02/01/2001 10:23:44"
  couic = DateAdd("s", DateDiff("s", datedebut, datefin), "01/01/0001")
  MsgBox Day(couic) - 1 & " jours " & Format(couic, "hh:mm:ss")
End Sub

jf2604 · Answer

merci beaucoup
je vais l'essayer
jf2604

jf2604 · Answer

comment faire pour modifier les heures automatiquement ?
c'est a dire pour prendre heure fin (maintenant) et pour l'heure début l'heure ou je vais clicquer sur un bouton ?
merci beaucoup pour votre collaboration et j'attends votre réponse.
jf

jmfmarques · Answer

Euh....
Et alors ?
Pour moi, maintenant, c'est toujours maintenant !
C'est maintenant au début (au lancement... donc au click, comme tu dis...) et c'est maintenant (un nouveau maintenant) à la fin également ...
T'as une difficulté à donner à une variable la valeur du premier "maintenant" et à comparer cette valeur avec le deuxième (celui de la fin) "maintenant" ?
Tu fais fort, là, il me semble ...

jf2604 · Answer

Désolé, je me suis mal exprimé.

Private Sub Command2_Click()
  datedebut =  "01/01/2001 10:22:43"   Comment faire pour prendre l'heure automatiquement? (lorsque j'appui sur unn bouton exemple)    
  datefin  = "02/01/2001 10:23:41"  (meme chose pourla fin)
  nbsecondes = DateDiff("s", datedebut, datefin)
  nbheures = nbsecondes \ 3600
  nbminutes = (nbsecondes Mod 3600) \ 60
  nbsecondes = (nbsecondes Mod 3600) Mod 60
  MsgBox nbheures & " heures " & nbminutes & " minutes" & nbsecondes & " secondes "
End Sub

Dans la compréhension que j'en fait, car je ne suis pas un habitué, ce sont des dates fixes avec des heures fixes. J'aimerais prendre les heures à laquelle je pèse sur le bouton pour début le compteur de temps et reprendre le temps à laquelle je repèse sur le bouton pour avoir l'heure de fin.
J'espère avoir été plus clair afin de ne pas voir faire travailler pour rien et je vous suis reconnaissant de bien vouloir m'aider.
Merci 
jf

jmfmarques · Answer

en mui disant pardi "maintenant" (maintenant se dit now (en anglais et en VB)

essaye voir :
Private Sub Command1_Click()
  MsgBox Now
End Sub

jf2604 · Answer

datedebut = "01/01/2001 10:22:43"
datefin = "02/01/2001 10:23:41"

dans ces lignes, la date et l'heure ont été décidées par toi et ce sont des dates heures déja prévues a l'avance.
Ma difficulté réside dans le fait que j'aimerais changer ces dates et heures par un clic de souris et qu'a ce moment, il prenne l'heure actuel.
Merci 
jf

Calcul de temps durant une journée

7 réponses

Votre réponse

Discussions similaires