Discussion :

[franckb74]

Bonjour,

Je souhaiterai calculer le temps entre de temps et afficher le résultat en seconde uniquement.
Exemple : 125 '' pour un affichage classique 0:02:05

J'ai un formulaire nommé "CalculeTemps" sur lequel j'ai 3 zones de texte nommées "Temps1" , "Temps2" et "TempsDiff"
Sur ce formulaire 2 boutons : Démarrer et Arrêt
Lorsque je clic sur le bouton "Démarrer" je défini la valeur de la zone de texte "Temps1" = Maintenant()
Lorsque je clic sur le bouton "Arrêt" je défini la valeur de la zone de texte "Temps2" = Maintenant()
Dans la zone de texte "TempsDiff" j'affiche : [Temps2]- [Temps1]

J'aimerai pouvoir afficher le résultat uniquement en seconde et non en HH:MM:SS
Le seul format qui est disponible pour cette zone de texte dans Fromat est : Heure, complet

Comment puis-je faire ?

De plus serait-il possible d'afficher dans une autre zone de texte le l'écoulement tu temps en seconde en direct ?

Merci pour votre aide,
Franck

[marot_r]

Bonjour.

La différence de deux chamos date est en jour décimal donc si tu fais TonResulat*24*60*60 tu auras le résultat en seconde et il faut l'afficher comme un nombre normal.

Tu peux aussi utiliser DateDiff("s"; DateDebut; DateFin) qui te donne le résultat directement en seconde.

Pour afficher la progression tu pourrais mettre le code suivant, en l'adaptant à tes nom, sur l'événement minuterie en réglant l'intervalle à 1000 ms (soit 1 seconde)

Code :

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

me.AffProgression=DateDiff("s", me.DateDebut, Now())

Si la date de début n'est pas importante, on peut aussi utiliser Timer() qui te donne le temps depuis le dernier allumage du PC. La différence entre 2 Timer() te donne le temps écoulé. Voir l'aide pour le détail.

A+

[franckb74]

Bonjour,

Merci pour cette proposition
J'ai adapté ton code aux noms de mes zones de texte :

Code :

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

    Me.AffProgression = TempsDiff("s", Me.temps1, Me.Temps2)

Malheureusement cela ne marche pas j'ai le message d'erreur suivant :



Comme solutionner cette erreur ?
Merci pour ton aide,
Franck

[marot_r]

En VBA et en SQL la fonction est DateDiff.

La version en français n'est disponible que dans l'éditeur de requêtes.

A+

[omen123]

bonjour

je voudrai faire presque la meme chose mais je voufrai afficher le resultat en jours et heures exemple 5 j et 13 h est ce possible j'utulise ceci :=DiffDate("j";[date_demande];Maintenant())

[marot_r]

Bonjour.

Non, quand tu calcules en jours, seuls les jours sont utilisés.

Si tu n'as pas à gérer les jour non travaillés tu peux calculer en heures et diviser par 24.

cela donne quelque chose comme.

Code :

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

1
2
3
4
dim duree as double: duree=DateDiff("h", dateDebut, dateFin)
dim jour as double:jour =int(duree/24)
dim heure as double: heure=duree-(24 * jour)
debug.print "Durée : " & Duree & ", soit " & jour & "j " & heure  &"h"

A+