1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Sub main()
Debug.Print JourLivraison("07/04/2005", 5)
End Sub
Private Function JourLivraison(DateCommande As Date, Delais As Long) As Date
If NumeroJour(DateCommande) > 5 Then
JourLivraison = JourLivraison(JourSuivant(DateCommande), Delais)
ElseIf Delais > 0 Then
JourLivraison = JourLivraison(JourSuivant(DateCommande), Delais - 1)
Else
JourLivraison = DateCommande
End If
End Function
Private Function JourSuivant(Jour As Date) As Date
JourSuivant = DateAdd("d", 1, Jour)
End Function
Private Function NumeroJour(Jour As Date) As String
NumeroJour = Weekday(Jour, vbMonday)
End Function |