Minimum de 6 dates

[chouan]

Récupérer la date la plus ancienne parmis 6 dates.

[Stephane Maillard]

Bonjour,Voici une fonction de tri, je ne l'est pas testé avec des dates ublic Sub TrierListe(s_Tableau() As String) Dim s_Temp As String X = 0 bouger = True Do Until Not bouger bouger = False For X = 0 To UBound(s_Tableau) - 1 If s_Tableau(X) > s_Tableau(X + 1) Then s_Temp = s_Tableau(X) s_Tableau(X) = s_Tableau(X + 1) s_Tableau(X + 1) = s_Temp bouger = True End If Next LoopEnd SubJe pense qu cela devrait fonctionner.[%sig%]

[chouan]

Mon pb consiste à calculer la valeur d'un champ à partir de 6 autres champs (saisis ou pas).Comment peut on utiliser cette fonction ?Peut on l'utiliser à partir du paramètre 'Valeur' de l'objet?Si oui comment ?

[Droad]

En supposant que ton doc contient des champs nommés Date1, Date2, ...le script suivant te retourne la prochaine date par rapport à aujourd'hui.dim doc as NotesDocumentset doc = '.... selon le contextedim dnow as variant, dmin as variant, dnever as variant, di as variantdim i as integerdnow = Todaydnever = cdat("01/01/3000")dmin = dneverfor i = 1 to 6 di = doc.GetItemValue("Date" & i)(0) if isdate(di) then if di>dnow and di<dmin then dmin = di end ifnextif dmin = dnever then messagebox "Pas de prochaine date"'else messagebox "Prochaine date :" & dminend if