calcul de délai entre deux dates

[Raphaël]

Bonjour à tous,kelk'un aurait il une formule pour calculer un délai entre deux dates??Je voudrais le résultat en nombre de mois.Ex : Date1 = 04/08/2003Date 2 = 04/11/2004Délai entre date2 et date1 = 15 moisMerci d'avance,@+Raph

[antoine]

REM "calcule des jours";res :=@Integer((date1 - date2) / (86400));@Prompt([OK]; "Nombres de jours entre deux dates :"; @Text(res));si cela peux t'aider.

[Stephane Maillard]

Bonjour,Je pense que ceci devrait vous convenir :Function NombreDeMois(DateDebut As String, DateFin As String) As String Dim Mois1 As Integer Dim Mois2 As Integer Dim Annee1 As Integer Dim Annee2 As Integer Dim Annee As Integer Mois1 = Month(DateDebut) Mois2 = Month(DateFin) Annee1 = Year(DateDebut) Annee2 = Year(DateFin) Annee = Annee2 - Annee1 Select Case Annee Case 0 NombreDeMois = Cstr(Mois2 - Mois1) & " Mois" Case 1 Mois1 = 12 - Mois1 NombreDeMois = Cstr(Mois1 + Mois2) & " Mois" Case Else Mois1 = 12 - Mois1 NombreDeMois = Cstr((Annee*12) + Mois1 + Mois2) & " Mois" End SelectEnd FunctionUtilisation :Messagebox NombreDeMois("04/08/2003", "04/11/2004")[%sig%]

[Raphaël]

Bonjour,Pour la formule (celle de Stéphane), je peux l'intégrer dans un bouton?Merci!

[Stephane Maillard]

Bonjour,Oui, bien sur.[%sig%]

[Raphaël]

Oki alors dans mon bouton je met la chose suivante ans Click:Sub Click(Source As Button) Messagebox NombreDeMois("DateDebut", "DateFin")End SubEt la fonction est dans la liste du bouton. Et là ca ne marche pas.. Pkoi?? En faîte je voudrais éffectuer ce calcul par rapport à deux dates rentré au préalable.Merci!Raph

[Stephane Maillard]

Re,Ces dates sont dans un document ?[%sig%]

[Raphaël]

Oui, en faîte je suis en mode web.J'ai un premier champ où l'on rentre une date.Ensuite j'ai un deuxième où l'on rentre une deuxième date.Je voudrais que la formule vu au dessus me calcul ce délai entre ces deux dates.Merci,;-)

[Stephane Maillard]

Bonjour,Voilà ce que j'ai mis sur mon bouton :Sub Click(Source As Button) Dim Session As NotesSession Dim UIWork As NotesUIWorkspace Dim UIDoc As NotesUIDocument Dim Doc As NotesDocument Dim DateDebut As String Dim DateFin As String Set Session = New NotesSession Set UIWork = New NotesUIWorkspace Set UIDoc = UIWork.CurrentDocument Set Doc = UIDoc.Document Messagebox NombreDeMois(Doc.DateDebut(0), Doc.DateFin(0))End SubDoc.DateDebut et Doc.DateFin sont le nom de mes champs. Par compte je travaille en client Notes. Je ne sais ce que cela donne en mode Web[%sig%]

[Raphaël]

Hum, pour le mode web il suffit de passer par un agent.Par contre sous le client notes il me met l'erreur suivante:"TypeMismatch"Tu sais d'ou cela vient?

[Raphaël]

Autant pour moi, c bon.Par contre si kelk'un sait comment récupérer la valeur d'un agent dans un champ, cela m'intéresse....En tout cas merci pour l'aide!!@+Raph

[Stephane Maillard]

Re,Sub Click(Source As Button) Dim Session As NotesSession Dim UIWork As NotesUIWorkspace Dim UIDoc As NotesUIDocument Dim Doc As NotesDocument Dim DateDebut As String Dim DateFin As String Dim Item As NotesItem Set Session = New NotesSession Set UIWork = New NotesUIWorkspace Set UIDoc = UIWork.CurrentDocument Set Doc = UIDoc.Document Set Item = Doc.ReplaceItemValue("NBMois",NombreDeMois(Doc.DateDebut(0), Doc.DateFin(0)))End SubNBMois est mon champs ou je stock la valeur. Il est Calculer et sa valeur par défaut est NBMois.[%sig%]

[Raphaël]

Re, effectivement ca marche en mode client lourd mais pas en mode web. Pourtant je passe bien par un agent.... J'ai un bouton dans mon masque avec la formule:@Command([ToolsRunMacro]; "Calcul date")Et dans mon agent j'ai les formules vu au dessus.Une idée??Merci,@+