1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Public function Duree_travail(debuttravail As date,fintravail As Date,debutintervalle As date,finintervalle As Date) As Integer
if (debuttravail<debutintervalle) Then
if (fintravail<finintervalle) Then
Duree_travail=DateDiff("n", debutintervalle,fintravail)
else
Duree_travail=DateDiff("n", debutintervalle,finintervalle)
End If
else
if (fintravail<finintervalle) Then
Duree_travail=DateDiff("n", debuttravail,fintravail)
else
Duree_travail=DateDiff("n", debuttravail,finintervalle)
End If
End If
End Function |
Partager