calcul de temps

[asx9]

je récupère dans mon masque 2 champs: "dateDébut" et "dateFin"comment dois-je faire pour calculer le temps écoulé entre mes 2 dates?

[Raziel]

Salut,essaie ceci :En LS :set dateDebut = new notesdatetime (doc.getitemvalue("DateDébut")(0))set dateFin = new notesdatetime (doc.getitemvalue("DateFin")(0))difference = dateFin.TimeDifference(dateDebut)msgbox ("La différence entre ces deux dates est : " + cstr(difference))

[asx9]

je n'arrive pas à faire fonctionner mon scirpt, le voici: Dim session As New notessession Dim db As notesdatabase Dim vue As notesview Dim doc As notesdocument Dim tpsTraite As NotesDateTime Dim tpsTotal As NotesDateTime Dim difference As NotesDateTime Set db = session.currentdatabase Set vue = db.getview("vue1") Set doc = vue.getfirstdocument While Not doc Is Nothing Set dateDebut = New notesdatetime (doc.getitemvalue("DateCréation")(0)) Set dateFin = New notesdatetime (doc.getitemvalue("DateFin")(0)) difference = dateFin.TimeDifference(dateCréation) Set doc = vue.getnextdocument(doc) tpsTotal= tpsTotal+differecnce Wend Msgbox ("La différence entre ces deux dates est : " + Cstr(difference)) End SubLe but est d'additionner les tps de traitement de mes docs.Pourriez-vous me guider? (je suis en V4.6)

[Raziel]

Cette déclaration n'est pas correcteDim difference As NotesDateTimeLa remplacer par Dim difference As long

[asx9]

je croix qu'il n'aime pas le: difference = dateFin.TimeDifference(dateCréation)sachant que mes deux champs sont des champs date et heure

[Raziel]

J'avais pas vueC'est quoi cette lignedifference = dateFin.TimeDifference(dateCréation) ? D'ou te viens dateCréation ?Je pense que tu as voulu ecrireSet dateDebut = New notesdatetime (doc.getitemvalue("DateCréation")(0))Set dateFin = New notesdatetime (doc.getitemvalue("DateFin")(0))difference = dateFin.TimeDifference(dateDebut)

[asx9]

en fait je me suis trompé la première fois, j'ai écris dateDébut alors que c'est dateCréation. je te redonne mon script:Dim session As New notessession Dim db As notesdatabase Dim vue As notesview Dim doc As notesdocument Dim tpsTraite As NotesDateTime Dim tpsTotal As NotesDateTime Dim difference As Long Set db = session.currentdatabase Set vue = db.getview("vue1") Set doc = vue.getfirstdocument While Not doc Is Nothing Set dateDebut = New notesdatetime (doc.getitemvalue("DateCréation")(0)) Set dateFin = New notesdatetime (doc.getitemvalue("DateFin")(0)) difference = dateFin.TimeDifference(dateCréation) Set doc = vue.getnextdocument(doc) Wend Msgbox ("La différence entre ces deux dates est : " + Cstr(difference)) End Subquand je met la ligne: "difference = dateFin.TimeDifference(dateCréation)" en commentaire, le script tourne (il me donne la valeur 0 mais c'est normale).sinon il me donne l'erreur: type mismatch

[Raziel]

Même remarque que précédemmentSet dateDebut = New notesdatetime (doc.getitemvalue("DateCréation")(0))Set dateFin = New notesdatetime (doc.getitemvalue("DateFin")(0))difference = dateFin.TimeDifference(dateCréation)Tu initialise 2 objets de type date (dateDebut et dateFin) et lorsque tu calcul la différence entre les deux, tu utilise, comme paramètre de la fonction TimeDifference, dateCréation.D'où viens ce dateCréation. Je pense que c'est plutôt dateDebut qu'il faudrai mettre.... Non ????

[asx9]

mille excuses je viens tout juste de m'en rendre compte!!!!!!!!merci et encore désolé, c'est ce qui arrive quand on fait plusieurs trucs à la fois.

[Raziel]

Pas de problème... )Ca m'arrive aussi de temps en temps...

[asx9]

mainten

[asx9]

maintenant j'additionne tous les temps d'écart de mes docs et j'obtient un temps total exprimé en secondes.est-ce qu'il y a des formules qui me permettrai d'exprimer mon temps en heures et minutes (voir en jours) plutôt que de me tapper du code bête et méchant?