Sujet Précédent Sujet Suivant

Cummule de temps

Résolu
monopole Messages postés 44 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 29 janvier 2009 - 16 avril 2006 à 17:09
monopole Messages postés 44 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 29 janvier 2009 - 18 avril 2006 à 13:46
bonjour,
je n'arrive pas à faire le cummule de temps. sur ma table (pause) j'ai un champ pa_pause de type datetime qui signale le temps de pause pris par la personne , lors d 'une deuxiemme pause je voudrais par exemple aditionner la premiere pause de 00:30:20 (30minutes et vingt seconde) avec la seconde pause de 00:10:30 (10 minutes et 30 secondes) je ne sais pas comment proçeder.
merci

2 réponses

Réponse 1 / 2
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
16 avril 2006 à 17:29
salut,
peut-être en convertissant ton format DateTime en String...


Option Explicit
'
'
Private Sub Form_Load()

Dim sTmp1 As String, sTmp2 As String

sTmp1 = "00:30:20" ' 30 minutes et 20 secondes
sTmp2 = "00:10:30" ' 10 minutes et 30 secondes

Dim aBuffer() As String, lTmp1 As Long, lTmp2 As Long

aBuffer = Split (sTmp1, ":")
lTmp1 = (Val(aBuffer(0)) * 3600) + (Val(aBuffer(1)) * 60) + (Val(aBuffer(2)))
Erase aBuffer

aBuffer = Split (sTmp2, ":")
lTmp2 = (Val(aBuffer(0)) * 3600) + (Val(aBuffer(1)) * 60) + (Val(aBuffer(2)))
Erase aBuffer

Dim lSomme As Long
lSomme = lTmp1 + lTmp2

MsgBox sTmp1 & " + " & sTmp2 & " = " & lSomme & " secondes"
Unload Me
End Sub


<small> Coloration
syntaxique automatique [AFCK]</small>
3
Réponse 2 / 2
monopole Messages postés 44 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 29 janvier 2009
18 avril 2006 à 13:46
merci pour la reponse, vraiment j'avait la tete ailleur
0
Rejoignez-nous