Discussion :

[leloup84]

Bonjour,

Dans mon Crystal j'ai ce genre de formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{table.date_cde}-CurrentDate

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

[luc_chivas]

Bonjour,

En 2010, j'avais fait cette fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[leloup84]

Merci j'ai finalement réussi avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)