Ecart date mais en jour ouvré

Bonjour,

Dans mon Crystal j'ai ce genre de formule :

Code:

---

{table.date_cde}-CurrentDate

---

Cela me donne mon écart de date mais je souhaiterais que cet écart soit en jour ouvré, comment faire ?

Bonjour,

En 2010, j'avais fait cette fonction.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'Calcul du nombre de jours ouvrés entre 2 dates - Luc RASCAR   Function WorkingDay (StartDate as Date, EndDate as Date) as Number   Dim DateRange Dim index   DateRange = DateDiff("d",StartDate, EndDate)   For index =0 to DateRange   If DatePart("w",StartDate) in (2 to 6) then WorkingDay = WorkingDay + 1 End if StartDate =(DateSerial(year(StartDate), Month(StartDate), Day(StartDate)+1)) next   End Function

---

cela fonctionne avec 2 paramètres, date de début, date de fin... et cela retourne un nombre qui correspond aux jours ouvrables

Merci j'ai finalement réussi avec ceci :

Code:

---

1 2 3 4

DateTimeVar d1 := {Orders.Order Date}; DateTimeVar d2 := {Orders.Ship Date};   DateDiff ("d", d1, d2) - DateDiff ("ww", d1, d2, crSaturday) - DateDiff ("ww", d1, d2, crSunday)

---