par Droad » 26 Juin 2003 à 15:05
En formule, j'arrive à ça (remplace les Adjust par tes champs date):dd := @Today;d1 := @Adjust(dd; 0; 0; -3; 0; 0; 0) - dd;d2 := @Adjust(dd; 0; 0; +2; 0; 0; 0) - dd;d3 := @Adjust(dd; 0; 0; +4; 0; 0; 0) - dd;d4 := @Adjust(dd; 0; 0; -5; 0; 0; 0) - dd;d5 := @Adjust(dd; 0; 0; -1; 0; 0; 0) - dd;d6 := @Adjust(dd; 0; 0; 0; 0; 0; 0) - dd;never := [01/01/2099]-dd;d1to6 := d1:d2:d3:d4:d5:d6;padding := never:never:never:never:never:never;max := @Trim(@Replace(@Text(@Max(0; d1to6)); "0"; ""));maxPadded := @TextToNumber(max):padding;delta := @Min(@GetMembers(maxPadded; 1);@Min(@GetMembers(maxPadded; 2);@Min(@GetMembers(maxPadded; 3);@Min(@GetMembers(maxPadded; 4);@Min(@GetMembers(maxPadded; 5);@GetMembers(maxPadded; 6))))));@Adjust(dd; 0; 0; 0; 0; 0; delta)En LotusScript, c'est +simple.