Ajout d’un Espace-Temps à une date

Fonction pour ajouter un espace-temps sur une date

Résultat à obtenir

Pour cela, nous développons trois modules avec le code

Function AjoutJour(MaDate, MaDuree)
 AjoutJour = DateAdd("d", MaDuree, MaDate)
End Function

Function AjoutMois(MaDate, MaDuree)
 AjoutMois = DateAdd("m", MaDuree, MaDate)
End Function

Function AjoutAnnee(MaDate, MaDuree)
 AjoutAnnee = DateAdd("yyyy", MaDuree, MaDate)
End Function

Ce qui nous donne 3 petites fonctions supplémentaires, remarquez le format du premier paramètre

Cliquez ici pour télécharger le fichier exemple AjoutEspaceTemps